Licensed Material - Property of IBM 
LY12-5016-6 
File No. $370/4300-50 


Data Language /I 
Disk Operating System/ 
Virtual Storage 
| (DL/| DOS/VS) 
Program Product Logic Manual, Volume 1 


Program Number 5746-XX1 


Seventh Edition (June 1981) 


This edition applies to Version 1, Release 6 (Version 1.6) of IBM 
Systen/370 Data Language/I Disk Operating System/Virtual Storage (DL/I 
DOS/VS), Program Number 5746-XX1. It supersedes LY1i2-5016-5. 


This edition, LY¥12-5016-6, in conjunction with DL/I DOS/VS Logic 
Manual, Volume 2, LY24-5215 is a major revision of LY12-5016-5. 


Summary of Amendments 


For a list of changes, see page iii. Changes and additions are 
indicated by a vertical line to the left of the change. 


Changes are made periodically to the information herein; before using 
this publication in connection with the operation of IBM systems, 
consult the latest IBM System/370 and 4300 Processors Bibliography, 
GC20-0001. 


It is possible that this material may contain reference to, or inform- 
ation about, IBM products (machines and programs), programming, or 
services that are not announced in your country. Such references or 
information must not be construed to mean that IBM intends to announce 
such IBM products, programming or services in your country. 


Publications are not stocked at the address given below; requests for 
IBM publications should be made to your IBM representative or to the 
IBM branch office serving your locality. 


A form for reader's comments is provided at the back of this 
publication. If the form has been removed, comments may be addressed 
‘to IBM Programming Publications, Dept. G60, P.O. Box 6, Endicott, NY, 
U.S.A. 13760. IBM may use or distribute any of the information you 
supply in any way it believes appropriate without incurring any 
obligation whatsoever. You may, of course, continue to use the 
information you supply. 


© Copyright International Business Machines Corporation 1973, 1974, 
1977, 1978, 1979, 1981 


SUMMARY OF AMENDMENTS 


DL/I VERSION 1.6 


This version of DL/I provides system changes and functional 
enhancements such as: 


Limited Data Sharing (Read Only) 


This function supports sharing of data bases between DL/I subsystems 
in one host or across hosts. One subsystem with update capability and 
multiple read-only subsystems can execute concurrently. This function 
does not guarantee data consistency for the read-only subsystem. 


MPS Under Interactive Computing and Control Facility (ICCF). 


DL/I MPS allows multiple MPS batch jobs to run in a single DOS/VSE 
partition. 


Boolean Cualification Statements 


Boolean logic qualification decreases the application program logic 
necessary for complex data retrieval. The user specifies multirle 
qualification statements to perform Boolean logic qualificaticn for 
each segment. Boolean AND and OR operators logically relate the 
qualification statements. 


ACCESS Macro 


The new ACCESS macro allows the user to specify on one statement all 
of the necessary parameters to define an access point to an HD data 
base. The ACCESS macro automatically generates the definition of any 
required index data kase DBDs. 


Selective Unload 


With selective unload, the user can reformat data using Field Level 
Sensitivity and Segment Sensitivity. The user can also add new fields 
for an application program and move a subset of a data base to another 
location for faster processing. 


Current Position Trace Entry Addition 


This function adds two fields (SDBORGN and SDBPTDS) to the current 
position trace entry. These fields specify the data base organization 
and physical pointers for the segment. 


DL/I Trace Point Utility Improvement 


This enhancement provides a means of selecting which trace entries 
print from a file created by DL/I Trace with OUTPUT=CICS. This 
function reduces the amount of output generated by the Trace Print 
Utility. 


Rewind Option for Reorganization Utilities 

This support adds an option to the HISAM and HD reorganization unload 
and reload utilities to allow the user to not rewind input and cutput 
tapes, or to select rewind only without having the tapes unloaded. 
This enakles the user to reorganize multiple data bases without having 
to mount a new tape for each data base reorganized. 


Seperate Index Reorganization 
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With this function, the user can now reorganize an index data base. 
separately by using the HISAM unload and relcad utilities. 


Partial Data Base Reorganization Utility 


This utility reorganizes a user-selected range of HIDAM or HDAM data 
base records into a designated target area within a data base. This 
minimizes the time a data base is offline for reorganization. 


Run and Buffer Statistics 


This facility reports statistics for certain run and buffer events . 
that are currently collected by DL/I, but not formatted or displayed. 
The data kase administrator or system programmer uses the statistics 
in selecting parameters for system tuning. 


Extended Remote PSB 

This support enables CICS/VS applications to process both local and 
remote DL/I data bases within the same CICS/VS Logical writ of work. . 
To application programs, a concatination of PCBs from local and remote 


PSBS appear as a Single PSB containing views of both local and remote 
data kases. 


HLPI ICR Intigration 
This release recoganizes the content of the logic manual by dividing 
the book into two volumes. Volume 1 includes all of the information 
included in prior editions except Section 2, Method of Operation. 
Section 2 is now in Volume 2. 

DL/I Version 1.5 


This version of DL/I provides system changes and functional 
enhancements such as: 


Field Level Sensitivity 
This function makes it possible for the user to specify only those 
fields in the physical definition of a given segment that are to be 
included in his application's view of that segment, while reraining 
insensitive to the other fields in the segment. 

Extended Logical Relationships 
The restriction of only one logical relationship per logical path 
has been removed. The user may now define as many logical 
relationships as he needs to satisfy his requirements. 

Unique Segment Support 


It is possible for the user to specify that only one occurrence of 
a particular segment type is allowed under a particular parent. 


Selective Log Print 
It is possible for the user to selectively print data from the log, 


using the log print utility, by specifying a DBD name, cicS task 
ID, or relative Llock number. 


DL/I_ FBA Device Support ICR 


Technical Newsletter LN24-5614 documents the following om the FBA | 
device support Independent Component Release (ICR): 
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FBA Device Support 


This support makes it possible for data bases and utility work 
files to reside on Fixed Block Architecture devices. 


DL/I Version 1.4 


This version of DL/I provides system changes and functional 
enhancements such as: 


RPG Ii Support 


Application programs written in RPG II can now access DL/I data 
bases in a manner similar to programs written in COBOL, PL/I, and 
Assembler language. 


Prefix Resolution Improvement 


The prefix resolution utility now passes an actual maximum record 
length, instead of a maximum possible record length, to the DOS/VS 
or DOS sort/merge program. 


Extended DL/I Call Interface 


This support, along with CICS/VS high level language support, 
eliminates the need for application programs to reference internal 
CICS/VS control blocks. A new parameter has keen added to the PCB 
call to obtain the address of the DL/I User Interface Block. This 
control klock contains the information previously returned in the 
TCA. 


This enhancement is required for application programs written in 
RPG II. It may also be used in programs written in COBOL, PL/I, 
and Assembler. 


Intersystem Communication 


CICS/VS intersystem communication support enables DL/I application 
programs to access a data base that is resident on another CPU. 


High Level Language Debugging for PL/I 
This support for PL/I allows diagnostic information to be supplied 
by both PL/I and DL/I. It is designed for only batch and MPS batch 
execution of DL/I, and does not require any changes to the PL/I 
code. 

Performance Improvements 
Performance improvements have been made to image copy, the batch 


partition controller, the HD unload utility, the log buffer and log 
print utility, and program isolation. 
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‘PREFACE 


This manual is to be used with the program listings for DL/I DOS/VS. 
It discusses the internal operation of the DI/I system as an 
application program under DOS/VS. It is intended for use ky persons 
involved in program maintenance and by system programmers who are 
altering the program design. 


DL/I DOS/VS is a data management control system that assists the user 
in creating, accessing, and maintaining large common data bases. In 
conjunction with the Customer Information Control System (CICS/VS), 
DL/I DOS/VS can be used in an online teleprocessing environment. 


Readers of this manual must be thoroughly familar with the use-of 
DOS/VS, and of CICS/VS, if DL/I DOS/VS is to be used in the online or 
multiple partition support (MPS) environment. 


Because DL/I DOS/VS is a functional subset of the IBM Information 
Management System/Virtual Storage (IMS/VS), some specific IMS or OS 
terms are used in this manual. These terms are used to allow easy 
reference to the documentation of the related systems. 


This manual is divided into seven sections. 


Section 1: Introduction: Summarizes DL/I DOS/VS giving general 
information about the purpose of system control modules, DL/I facility 
modules, MPS modules, and utility modules. 


Section 2: Method of Operation: Contains HIPO diagrams that descrike 
the DL/I modules. The diagrams include cross-references to labels in 


the program listings. See Data Language/I Disk Operating 


System/Virtual Storage (DL/I DOS/VS) Logic Manual, Volume 2 Order No. 
LY24-5215. 


Section 3: Program Organization: This section provides descriptive 
information about the DL/I modules and major routines. 


SECTION 4: Directory: Lists DL/I module, entry point, and control 
section names with cross-references to Section 2: Method of Operation. 


Section 5: Data Areas: Describes the data areas used by DL/I. Field 
and flag names for each data area are also listed alphabetically. 


Section 6: Diagnostic Aids: Gives information that may be helpful in 
locating specific program listings. 


Section 7: Appendixes: Contains information about LLC/CC in DL/I, DBD 
generation, PSB generation and DL/I macros. 


An index is also included. 

Note: In this publication, the system and component name DOS/VS 
should be read as DOS/VSE unless that name explicitly refers to DOS/VS 
release 34 or an earlier DOS/VS release. 

Related Publications 

DL/I DOS/VS General Information Manual, GH20-1246 - 


DL/I_ DOS/VS Application Programming: CALL and RQDLI, SH12-5411 
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DL/I DOS/VS Data Base Administration, SH24-5011 

DL/I DOS/VS Resource Definition and Utilities, SH24-5021 
DL/I DOS/VS Messages and Codes,SH12-5414 

DL/I DOS/VS Guide for New Users, SH24-5001 

DL/I DOS/VS Diagnostic Guide, SH24-5002 

DL/I_ DOS/VS Logic Manual Volume 2, LY24-5215 


For DOS/VS messages and return codes: 


DOS/VSE Messages, GC33-5379 
DOS/VSE Macro User's Guide, GC24-5139 


DOS/VSE Macro Reference, GC24-5140 


Using VSE/VSAM Commands and Macros, SC24-5144 
VSE/VSAM Messages and Codes, SC24-5146 


Users employing DL/I DOS/VS in an online environment should have 
access to the following CICS/VS publications: 


CICS/VS System Programmer's Reference Manual, SC33-0069 

CICS/VS Application Progranmer*s Reference Manual (Macro Level), 
$C33-0079 

CICS/VS Systen Application Design Guide, SC33-0068 

CICS/VS System Programmer's Guide (DOS/VS), SC33-0070. 
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SECTION 1: INTROCUCTION 


Data Language/I Disk Operating System/Virtual Storage (CL/I DOS/VS, 
hereafter referred to as DL/I) is a data management control system 
that assists the user in creating, accessing, and maintaining large 
common data bases. In conjunction with the Customer Information 
Control System (CICS/DOS/VS), DL/I can be used in an online 
teleprocessing environment. Also in conjunction with CICS/VS, DL/I 
provides a centralized data facility, multiple partiticn support 
(MPS), which controls concurrent access to data bases from multiple 
katch partitions. 


Section I summarizes and describes the following: 
e DL/I Batch System 

e DL/I Online Processor 

e DL/I Facility Modules 

e Multiple Partition Support (MPS) 


e DL/I Utilities 
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DL/I BATCH SYSTEM 


The DL/I batch system executes as an application program in a virtual 
storage environment under DOS/VS. The DOS/VS partition in which the 
DL/I katch system executes is composed of the elements shown in Figure 
1-1. These are: 


The system control facility 

The DL/I facility 

The DOS/VS VSAM and SAM data management modules 
The user application program 


The major components of the DL/I system are the system control 
facility and the DI/I facility. The system control facility receives 
control from DOS/VS jok control, initializes the DL/I batch system, 
and interfaces between DL/I and the user application program. The 
DL/I facility interfaces with the DOS/VS VSAM and SAM data management 
modules when performing the data base call function requested by the 
user application. 


The system control facility is divided into three functional areas 
(see Figure 1-2): 


e Batch initialization 

e Language interface 

e Program request handler. 

Batch initialization is responsible for: 

e Initial interface with DOS/VS job management 

e Analysis and validity checking of DL/I parameter information 


e Loading the batch nucleus. 


e Loading the DL/I application control blocks (PSB and DMBs) and 
relocating the control kELlock addresses. 


e Creation of the PSB intent list and the DMB directory (DDIR). 


e Acquiring and formatting storage for the buffer pool contrel blocks 
and their related I/O buffers. 


e Loading the DL/I facility modules. 

e Loading the application program and passing control to it. 

The language interface provides communication between the application 
program and the program request handler. This module is link-edited 


with the application progran and provides a common interface for DL/I 
calls written in PL/I, COBOL, RPG II, cr Assembler language. 
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Figure 1-1. Elements of a DL/I DOS/VS Batch Partition 


Licensed Material - Property of IBM i=3 


DOS/VSE 


SYSTEM 
CONTROL 
FACILITY BATCH 


INITIALIZATION 


USER 
APPLICATION 
PROGRAM 
LANGUAGE 
INTERFACE 


PROGRAM 
REQUEST 
HANDLER 


DL/!| FACILITY 





figure 1-2. System Control Facility Relationships 
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The program request handler receives the DL/I call from the user 
application program via the language interface. It performs the 
following functions: 


e Checks validity and, if necessary, reformats the caller"s parameter 
lists and submits them to the DL/I facility. 


e Accepts parameter lists from the DL/I facility and moves data to 
the user’s work area, if required. 


e Returns control directly to the user application progran. 


See Section 3 for a detailed description of each of these modules. 


DL/I ONLINE PROCESSOR 


In an online environment, the DL/I system executes within the CICS/VS 
partition. CICS/VS provides exit interfaces to DL/I for the following: 


e DL/I system initialization during CICS/VS initialization. 
e DL/I system termination during CICS/VS termination. 


e DL/I user task scheduling of DL/I resources before an application 
program accesses DL/I. 


e DL/I user task completion and return of DL/I resources after the 
application program has issued a CICS/VS synchronization point 
(SYNCPOINT) command or has completed DL/I processing. 


When the user application program issues a DL/I call, control passes 
to the online language interface module and the program request 
handler. The program request handler validates the call and fasses it 
to the DL/I facility. The DL/I facility invokes CICS/VS services 
through the online interface for such functions as transaction and 
storage management. On completion of the DL/I call, the DL/I facility 
returns control to the user application program via the program 
request handler. The program request handler also interfaces with 
CICS/VS for any functions performed externally to DL/I. 
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DL/I FACILITY MODULES 


The functions of data base creation, access, maintenance, and 
reorganization are accomplished by the DL/I facility (see Figure 1-3). 
The CL/I call is passed from the system control facility to the DL/I 
call analyzer, which is the focal point of the DI/I facility. The 
type of call is analyzed (DL/I call, pseudo call, or internal call 
resulting from a DL/I call), and control is passed to the aEPTOETLAES 
action module to process the call. 


The action modules of the DL/I facility, together with their major 
functions, are listed below: 


e Open/Close Module 


= Open DL/I data bases 

- Close DL/I data bases 

- Interface with data base logger to write data set open record 
to log file 


e Delete/Replace Module 


= Delete a segment of a DL/I data kase in conjunction with the 
buffer handler 

= Replace a segment of a DL/I data base in conjunction with the 
buffer handler 

= Interface with data base logger to record changes on log file 

= Interface with space management for HDAM and HIDAM data kases 

= Interface with index maintenance for data bases with indexes 


e Load/Insert Module 


= Load segments into a DL/I data base in conjunction with the 
buffer handler 

= Insert segments into a DL/I data base in conjunction with the 
buffer handler 

= Interface with data base logger to record changes on log file 

= Interface with space management for HDAM and HIDAM data bases 

= Interface with index maintenance for data bases with indexes 

= Issue I/O for HSAM and Simple HSAM data bases 


e Retrieve Module 


= Retrieve a segment of a DL/I data base in conjunction with the 
buffer handler 

a Perform data base positioning for load/insert 

= Issue I/O for HSAM and Simple HSAM data bases 


e Index Maintenance 
= Maintain any indexes for HDAM or HIDAM data kases in 
conjunction with the buffer handler 
= Interface with data base logger to record changes on log file 
e Space Management 
= Allocate and maintain free space on DASD in conjunction with 
the buffer handler for storage of DL/I segments for HDAM and 


HIDAM data bases 
= Interface with data base logger to record changes on log file 
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Buffer Handler 

~ For HDAM or HIDAM data kase, satisfy requests fcr segments or 
records from data currently available in the buffer pcol _ 

= Issue I/O to VSAM for HDAM or HIDAM data base requests that 
cannot be satisfied from the buffer fool 

- Issue I/O to VSAM for all HISAM, Simple HISAM, and Index data 
kase requests . 

Lata Base Logger 


- Record all data base modificaticns on the DL/I log tape us ing 
DOS/VS SAM or disk log using VSAM, or CICS Journal 


Queuing Facility 

= Provide support for contention ccntrol at the segment and 
record level 

7 Provide deadlock detection and resolution. 

Field Level Sensitivity Copy Module 

= Provide user view/physical view conversion for field level 


sensitivity. 


See Section 3 for a detailed description of the modules. 
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MULTIPLE PARTITION SUPPORT (MPS) 


DL/I enables batch application programs executing in different 
partitions to access online data bases concurrent with cnline 
applications. This capability is called multiple partition support 
(MPS). For example, MPS permits online applications to issue 
inquiries to a data base while a batch program updates the data base. 
MPS uses the DL/I resources and the multitasking facilities of DL/I 
and CICS/VS. 


DL/I UTILITIES 


The DL/I utility modules are categorized as follows: 


e Application control blocks creation and maintenance: this utility 
program is used to merge and expand into an internal format the 
control klocks created ky the DBD and PSB generation utilities. 
The control blocks created by this utility are used Ly the DL/I 
system. 


e Data base recovery: this is a set of utility programs employed to 
reconstruct a data base. 


e Data kase reorganization: this is a set of utility programs 
employed to reorganize a data base. Use of these programs reduces 
direct access storage requirements by compacting data and thus 
reducing data kase access time. 


e Data kase logical relationship resolution: this is a set of 
utility programs employed to update pointer inforration when data 
bases involved in logical relationshirs and/or secondary index 
relationships are initially loaded or reorganized. 


HLPI INTERFACE MODULES 


The HLPI interface modules, DLZEIPOO, DLZEIPBO, and DLZEIPB1 build 
DI/I calls from data provided in calls generated from EXEC DLI 
commands ky the CICS EXEC translator. After the HLPI interface 
modules kuild the DL/I calls, they pass the calis to the Program 
Request Handler for execution by DL/I. 


LANGUAGE INTERFACE MODULES 
There are two language interface modules used with batch and MPS HLPI 


programs. They are the COEROL language interface module (DLZLICBL) and 
the PL/I language interface module (DLZLIPLI). 
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SECTION 2: METHOD OF OPERATION 


This section contains HIPO (Hierarchy, plus Input, Process, Output) 


diagrams and is included in Data Language/I Disk Operating 
Systern/Virtual Storage (DL/I_ COS/VS) Logis Manual, Volume 2, Order 


Number LY24-5215. 
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SECTION 3: PROGRAM ORGANI ZATION 


This section contains descriptions of the DL/I modules and their major 
routines. 
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SYSTEM CONTROL MODULES 


DLZRRCOO - FATCH INITIALIZATION - Part 1 
The responsibilities of this module are to: 


e Read required PARM information from SYSIPT or SYSLOG based on the 
UPSI byte setting. 


e Determine load address for Latch nucleus module (DLZBNUCO). 
e Provide a LCL/I message subroutine (ERRORMSG). 


e Branch to region control interface (DLZRRC10). 


Entry Interface - DLZRRCO0O0 


DLZRRCOO receives control from DOS/VS jok control 


Exit Interface 


DLZRRCOO passes control through branch to region control interface 
(DLZRRC10). : 


Register Contents 


R7 Address of ERRORMSG 
R10 Entry point address of DLZRRC10 


Entry Interface ~ ERRORMSG 


ERRORMSG receives control through BALR from DL/I modules 


Register Contents 


R1 PST address or parameter list address 
R13 Save area address 

R14 Return address 

R15 Entry point address (DLZERRMS) 


Exit Interface - Calling Module 


Passes control through branch on register 14 


DLZRRC10 - REGION CONTROL/INITIALIZATION - Part 2 

This routine receives control from the DL/I initialization Part 1 
routine and continues batch initialization. Its responsibilities are: 
e Save input parameters 

e Load batch nucleus module (DLZBNUCQ) 

e Establish SCD and PST addressability 


e Invoke parameter analysis (DLZRRA0O) 
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e Branch to application program control module (DLZPCCc00) 


Entry Interface - DLZRRC10 


Receives control through kranch from DLZRRCOO 


Register Contents 
R7 Address of ERRORMSG 


R10 Entry point address 


Exit Interface - Parameter Analysis 
Passes control through fall through to DLZRRAOO 


Register Contents: 


R2 Address of SCD 
R9 Address of PST 
R13 Save area address 


DLZRRA0O - USER PARAMETER ANALYSIS 


This routine checks the positional parameters for valid length and 


contents when first entered. Invalid parameters cause CL/I tc issue 


an error message and abnormally end. There is an entry at NXTPORT 


(just before buffers are to be allocated) to check keyword parameters. 


Errors cause DL/I to issue an error message and abnormally end. 
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Layout and Description of PARM Field 
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XXX PARM identifier in columns 1-3. 


DLI = Data Ease frogram to ke executed. 


UDR Data kase recovery utility to be 
executed. 
ULU = Data base reorganization or lcgical 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| relationship resolution prograr tc ke 
| executed. 
| ULR = HD reorganization reload utility tc 
| be restarted from checkpoint record. 
lI PLU = Selective Unload 
| 
| aaaaaaaa One- to eight-character name of the 
| applicaticn program to ke executed. 
| 
| bbbbbbb One- to seven-character name of the program 
| specification block (PSB) as specified in 
| the PSB generation. 
| 
| 
| 
i 
| 
| 
| 
| 
| 
| 
| 
L 


If PARM is UDR, ULU, or ULR, one- to 
seven-character name of the data kLase 
description (DBD) as specified in the DBD 
generation. 


ccc Numcer of data Lkase buffer sub-pools 
required for jok execution. 


keyword HDBFR, HSBFR, ASLOG, LOG, and TRACE 
operands 


ae ae oe a He ee cette ete oe comme <emE epe cee te orem ce em eee cy eee Se se eee cen tee mre eee ce SO Se ce aos ce te ee en OS a SD ee cece SO eS SS EE Le et SE A OD ey SO 


fete cece nett HD Oe ES CD ED RD ed A GNSS SED ES GMD SED Gas SA SD SN SD eS Sa NS SD TS SMES AES cents SO US es SRS ee 


Entry Interface 


Receives control from DLZRRC10 


Entry Register Contents 


e When entered at DLZRRAOO: 
R2 Pointer to SCD (not used) 
R9 FST address 
R1i3 Save area address (not used) 
e When entered at NXTPORT: 
R6 Pointer to first subpool information table 
R8 SCD address 


Exit Interface 


e From DLZRRAOO entry: Passes control by fall through to 
DLZPCCc 00 
° From NXTPORT entry: Passes control by -ranch to PRMSRET 


Exit Register Contents: 


e From DLZRRAOO entry: 
R2 SCD address 
RY PST address 
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R13 Save address 


° From NXTPORT entry: 
R2 SCD address 
R6 Pcinter to last sukpool information table 
RY PST address 
R13 Save area address 


-DLZPCCOO - APPLICATION PROGRAM CONTROL 


This routine is used only in the Latch partitions. It performs some 

functions analogous to thcse performed ky the CICS scheduler in the 

online control program. It is responsible for the follcwing 
functions: 

e Initializing the storage management routine 


e Invoking the aprplicaticn control blocks loader/relocator 
(DLZPINIT) 


e Invoking the control sroatail initialization routine 
e Loading the applicaticn program 

-e@ Initializing the PL/I region (if PL/I) 

e® Invoking the application program 


e Issuing an unload call in behalf of the application program upon 
termination 


- Writing the application program termination record cn the DL/I log 
e Closing the DL/I log. 
Data Areas Used 

PST 

SCD 

DDIR 

DME 


SDB 
PSIiL 


Entry Interface 
Receives ccntrol by fall through from DLZRRAOO 


Entry Register Contents 


R2 SCD address 
R9 PST address 
R13 Save area address 


Exit Interface 


° Passes control through BAL to DLZPINIT (entry point in 
DLZDBLMO) 

e Passes control through BAL to application program 

e Passes control through BAL to call analyzer (CLZDLAOO) 
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° Passes control through BAL to data base logger DLZRDBLO) 


° Passes control to DOS/VS supervisor by issuing an SVC 14 
normal EOJ supervisor call. 


Exit Register Contents 


e From exit to DLZPINIT: 
R2 SCD address 
RY PST address 
R14 Return address 
e From exit to application program: 
R1 Address of PCB address list 
R13 Save area address 
R14 Return address 
R1i5 Entry point 
e From exit to DLZDLAO0O0: 
R1 PST address 
R13 Save area address 
R14 Return address 
Rid Entry address of call analyzer 
(obtained from SCD at label SCDDLICT) 
e From exit to DLZRDBLO: 
R1 PST address 
R13 Save area address 
RL4 Return address 
Ri5 Entry point of log write-only routine 


(obtained from SCD at label SCDREENT) or, 
Entry point of force write routine 
(obtained from SCD at label SCDDBLFW) or, 
Entry point of logger close routine 
(obtained from SCD at label SCDDBLCL) 


DLZDBLMO - APPLICATION CONTROL BLOCKS LOAD AND RELOCATE 


This routine performs the functions of loading and relocating DL/I 
application control blocks. Once the blocks are loaded and offsets 
resolved to actual addresses, the SDBs in the PCBs are connected to 
the appropriate PSDBs in the DMBs. The JCB data sets in the data base 
are connected to the appropriate ACBs in the DMBs, and control is 
returned to the calling routine. 


For "DLI' or ‘PLU" execution, the PSB name extracted from the PARM 
card is moved to the PSB directory and the PSB is loaded. The address 
of the PSB segment intent list and the PSB are stored in the PSB 
directory. The index work area (if required) is allocated and 
addresses are resolved. Next the intent list is scanned and the DMB 
directory is constructed from it. The DMB directory entries are 
scanned and the DMBLOADR subroutine (see below) is called to load and 
relocate the DMBs in the directory. Upon completion, the SDBs are 
connected to their corresponding PSDBs, the JCB DSGs are connected to 
their ACBs, and return is made to the caller. 


For the following utilities there is no PSB name in the parameter 
information: 
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DLZURPRO - Data base prereorganization 
DLZURGSO - Data base scan 
DLZURGPO - Data base prefix update 


These utilities perform dynamic block loading using the DLZBLKLD 
macro. 


The DMBLOADR subroutine performs the loading and relocation of DMBs. 
The DMB directory is accessed and the DMB name extracted from it. A 
load is issued for the DMB and, if HDAM, the randomizing module 
extracted from the DMB is loaded. Next, the DMB directory entry is 
updated with a buffer size indication. For HD, this value is the 
control interval size of the data set; for HISAM, it is the logical 
record size. Then all offsets are relocated to addresses, and control 
is passed to DLZCPIOO. 


Entry Register Contents: 


R2 SCD address 

R9 PST address 

R13 Address of one of a set of prechained save areas 
R14 Return address 


Exit Register Contents 


Same as entry register contents 


DLZCPI0O0 - BATCH CONTROL PROGRAM INITIALIZATION 


This routine receives control from the application control blocks load 
and relocate routine and completes the intialization of the DL/I batch 
system. It is responsible for: 


e Allocation of the buffer pool 

Formatting the buffer pool prefix, one or more subpool prefixes, 
and the buffer prefixes 

Loading all required DL/I action moduies 

Initializing the SCD 

Opening the DL/I log 

Writing the application program scheduling record on the DL/I log 


Entry Interface - DLZCPI0O 
Receives control by fall through from routine DLZDBLMO. 


Entry Register Contents: 


R2 SCD address 
RO PST address 
R13 Save area address 


Exit Interface 


Returns to DLZPCC00 


Exit Register Contents 


RY PST address 
R2 SCD address 
R14 Return address 
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DLZLIO000 - LANGUAGE INTERFACE 


The language interface provides communication between the application 
program and the program request handier. A copy of this module is 
link edited with user application programs. 

The language interface has responsibility for: 

e Storing the user's registers in the save area provided. 


e Providing a specific entry for Assembler, COBOL, RPG II, and PL/I 
application programs. 


e Locating the entry point of the program request handler. 


e Passing control to the program request handler 


Entry Interface - DLZLI000 


Receives control through branch from application program 


Entry Register Contents: 


RL Call parameter list of implicit or explicit format 
R13 Save area address 

R14 Return address 

Ri5 Entry point 


Exit Interface 


Passes control to program request handler through branch from DLZLI000 


Exit Register Contents: 


RO Language identifier code 

R1 Parameter list 

R2-14 As entered from application program 
R15 Entry point of program request handler 


DLZLICBL —- DL/I DOS/VS HLPI BATCH/MPS COBOL LANGUAGE INTERFACE 


This module obtains the entry point address of and passes control to 
_DLZEIPBO. 


Control Blocks - DLZLICBL 


EIPL - EIP parameter list 


Normal Entry Point 


The entry points to this module are: 


DLZEIO1 Data base calls 
DLZEIO2 All other calls 
DLZEIO3 - Reserved 
DLZEIO4¥ -—- Reserved 
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Register Contents on Entry 


R13 ~- Register savearea address 


DLZLIPLI - DL/I DOS/VS HLPI BATCH/MPS PL/I LANGUAGE INTERFACE 


This module has two routines; An initialization routine with an entry 
point DLZLIPLI and a processing routine with an entry point DLZEIOx. 


Entry point DLZLIPLI is entered before the application program gets 
control. It finds the entry point address of PLICALLB and passes 
control to it. This is done to enable the PL/I HLPI application 
program to use non-PL/I PSBs. 


DLZEIOx performs the same functions as DLZLICBL (see DLZLICBL for 
details). 


CONTROL BLOCKS - DLZLIPLI 


e EIPL - EIP parameter list 


Normal Entry Points 


The normal entry points to this module are: 


DLZLIPLI - From DL/I initialization 
DLZEIO1 - All other calls 

DLZEIO2 ~— Data base calls 

DLZEIO3 —- Reserved 

DLZEIO4 - Reserved 


Register Contents on Entry 


R13 - Register savearea address 


DLZPRHBO —- PROGRAM REQUEST HANDLER 


The interface between the application program and the DL/I batch or 
control program is managed by the program request handler routine 
(DLZPRHBO) in module DLZBNUCO. It accepts parameters passed to it by 
the language interface module (DLZL1I000), or the HLPI batch EXEC 
interface program, DLZEIPB1. It validates these parameters and passes 
a parameter list to the call analyzer. 


The program request handler accepts three call list formats: implicit 
direct, explicit direct, and explicit indirect. COBOL and Assembler- 
language programs may use either the implicit direct or explicit 
direct call list formats. Since special provisions are made for PL/I 
in handling the explicit indirect call list, it may be used only by 
PL/I language programs. 


The first parameter (argument 0) of the DL/I CALL determines whether 
the list is explicit or implicit. If the argument contains the 
address of the parameter count (count of the number of arguments that 
follow), this list is an explicit list. If the argument contains the 
address of the DL/I CALL function, this list is an implicit list. 
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The responsibilities of this routine are to: 


Verify parameter list addresses aligned and within the dynamic area 
of the machine 


Reformat explicit parameter lists to implicit prior to submission 
Reset PL/I STXIT PC processing | | 

Provide caller's parameter list to the call analyzer 

Return data to application program work areas 

Maintain PL/I variable-length character string dope vector 
Identify abnormal termination condition 

Return directly to application program 


Write checkpoint message if checkpoint issued 


Data Areas Used 


-PPST 


PST 
SCD 


Entry Interface 


Receives control through branch from language interface (DLZL1000) 


Entry Register Contents 


RO Language indicator Bit X"01‘' ON if PL/I, OFF for other 
languages. Bit X‘02' ON if HLPI, Off if call interface 

R1 Parameter list address (in application program format) 

R13 Save area address 

R1i4 Return (to application program) 

RL5 Entry point address | 


Exit Interfaces 


e Passes control through branch to call analyzer (DLZDLAOO) 

e Passes control through branch to error message writer 
(ERRORMSG) a 

® Passes control through branch to abend processor (DLZABEND) 

e Passes control through branch to application program 


Exit Register Contents 


e From exit to DLZDLAOO: 
RL PST address 
R13 Save area address 
R14 | Return address 
R15 Entry point of call anaioser (obtained from scp) 


-at label SCDDLICT) 
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e From exit to ERRORMSG: 


R1 PST address 

R1i3 Save area address (PSTSV1) 

R1i4 Return address 

R15 Entry point of error message writer 


(obtained from SCD at label SCDERRMS) 


° From exit to DLZABEND: 
R15 entry point to DLZABEND 
e From exit to application program: 
R2 - 
R12. Restored to contents upon entry from application 


program to language interface module (DLZLI000) 


R1i4 Application program return address 


DLZABEND - STXIT ABEND 


apnoea terminations invoked through the DOS/VS STXIT or terminations 

requested by DL/I action modules are handled by DLZABEND. 

Responsibilities are as follows: 

e Close the DL/I log. 

e Issue an UNLD call to write the last records for Simple HSAM, HSAM, 
Simple HISAM and HISAM or write all buffers altered by the user. © 
The UNLD call also closes the data base. 


e Ifa dims is requested, write a formatted dump of DL/I control 
blocks. 


e Cancel the partition. 


Entry Interfaces 


e Receives control through DOS/VS STXIT PC interface or STXIT AB 
interface 


e Receives control through branch from program request handler 
(DLZPRHBO) 


e Receives control through branch from DL/I action modules (including 
a special entry from the buffer handler) 


Exit Interfaces 

e Passes control through branch to data base logger (DLZRDBLO) 

e Passes control through braach tp call analyzer (DLZDLAO0O) 

e Passes control through SVC 6 (CANCEL) or SVC 2 ($$BJDUMP) to DOS/VS 


Exit Register Contents: 


e From exit to DLZRDBLO: 
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R1 PST address 


R13 Save area address (PSTSV1) 
R14 Return address 
R15 Entry point of logger force write routine (obtained from 


SCD at label SCDDBLEW) or, 
Entry point of logger close routine (obtained from SCD at 
label SCDDBICL) 


e From exit to DLZDLAOO0: 


R1 PST address 

R13 Save area address 

R14 Return address 

R15 Entry address of call analyzer (obtained from SCD at 


label SCDDLICT) 


DLZIWAIT - DL/I IWAIT 


This module receives control when a DI/I action module requires DOS/VS 
wait linkage. 


Entry Interface 


Receives control through BALR from a DL/I action module 


Entry Register Contents: 


R2 Address of event control block 
R14 Return address of caller 
R15 Entry point of DLZIWAIT 


Exit Interface 
e Passes control through SVC 7 (WAIT) to DOS/VS. 


e Passes control through branch on register 14 to the calling program. 


DLZSTRBO ~- BATCH FIELD LEVEL DESCRIPTOR (FLD) STORAGE MANAGER 

This module frees the current field level descriptor storage, 
increases storage requirements for FLD by 128 bytes, and acquires the 
storage for the new FLD entries. 

Interface 


This module interfaces with the following module: 


DLZDLAOO - Call analyzer 


Control Blocks _DLZSTRBO $ ewe 
e PPST - PST prefix 

e PST - Partial specification table 

e SCD - System contents directory 


Normal Entry Point 
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The only entry point to this module is DLZSTRBO 


Register Contents on Entry 
R1 - PST address 
R13 - Current register savearea address 
DLZSTROO - ONLINE FIELD LEVEL DESCRIPTOR (FLD) STORAGE MANAGER 
This module frees the current field level descriptor storage, 
increases storage requirements for FLD by 128 bytes, and acquires the 
storage for the new FLD entries. 
Interface 
This module interfaces with the following modules: 


CLZDLA0NO - Call analyzer 


Control Blocks - DLZSTROO 


e CSA 

e TCA 

e PPST - PST prefix 

e PST - Partial specification table 
e SCD - System contents directory 


Normal Entry Point 
The normal entry point to this module is DLZSTROO. 


Register Contents on Entry 


Ri - PST address 
R13 - Current register savearea address 


Licensed Material - Property of IBM 3=13 


ONLINE DL/I PROCESSOR MODULES 


Before attempting to use the information concerning DL/I processor 
modules, you should be familiar with the Customer Information Control 
Systen/Virtual Storage (CICS/VS). References to the prerequisite 
publications are contained in the preface to this manual. 


The online DL/I processor modules DLZOLI00O and DLZODP provide services 
in a CICS/VS-DL/I environment as follows: 


a. DL/I system initialization 

b. DL/I user task scheduling 

Cc. Processing DL/I calls (online program request handler) 
d. DL/I user task completion 

e. DL/I normal system termination 

f. DL/I abnormal system termination 

g- DL/I online message writer 

h. DL/I-VSAM-CICS synchronization via VSAM ‘EXCP* Exit. 


DLZOLIOO - ONLINE INITIALIZATION 


In order to process DL/I applications in an online environment, a DL/I 
online nucleus must first be generated. The DL/I online nucleus 
generation procedure is described in DL/I DOS/VS Resource Definition 
and Utilities. The result of the procedure described in the 
publication is a DL/I online nucleus CSECT. 


The generated nucleus, which is link-edited into a DOS/VS core image 
library, consists of a system contents directory (SCD), a table of 
partition specifications table prefixes (PPST), a PSB directory entry 
for each PSB specified, a remote PSB directory entry for each remote 
PSB specified, and an application control table (ACT). 


The application control table (ACT) is used by DL/I online at CICS 
initialization to verify and load all PSBs and DMBs that can ke 
referenced online. The ACT is used during scheduling to determine 
whether an online transaction is to use DL/I. It is also used by DL/I 
default scheduling to acquire a PSB to use with a DL/I application 
program if none was explicitly specified. 


The ACT is produced from parameters specified in the following DLZACT 
macro instructions: 


DLZACT TYPE=INITIAL 
DLZACT TYPE=CONFIG 
DLZACT TYPE=PROGRAM 
DLZACT TYPE=RPSB 
DLZACT TYPE=BUFFER 
DLZACT TYPE=FINAL 


Each ACT program entry is generated from the DLZACT TYPE=PROGRAM 
statement. These statements define to DL/I which application programs 
can use DL/I online. They also define which PSB names can be used by 
each of the application programs. There is one ACT program entry for 
each DLZACT TYPE=PROGRAM statement used to generate the online 
nucleus. See the format of the application control table (ACT) in 
Figure 3-1. 
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a Gee ae a ee 
4 8 2 bytes 
A. Buffer poo! information address or 0 


B. Storage layout control table name or 0 
C. Number of HD DBDs in HOBFR operand 


a entry ‘1 


py 


. ACTNM ACT program entry name 
=f ACTIND Entry indicator byte: 


X‘80’ Program is a DL/I program 
X‘40’ Program name not in CICS PPT 
X'30’ ABEND option bit 
X'02’ Program is deferred -scheduled 
F. ACTPCNT Count of PDIR (PSB) pointers for this program 


Generated from: G. ACTPPTR _ PDIR pointer(s). ACTPCNT indicates how many pointer are included 


BaGCRAME = here before the start of the next ACT entry. 


Program entry ‘n’ 


2 


A maximum of 4095 DLZACT TYPE = PROGRAM statements and a maximum of 
4095 unique entries (an entry consisting of program name and one PSBNAME) may 
occur in one ACT generation. 


| 4 . 


H. Delimiter (FF FF FF FF) indicating end of program entries 


HDBFR entry (subpool ‘1’) 


2 8 8 2 bytes 


|. Length of entry 
J. OBD name 
K. Number of buffers 


HDBEFR entry (subpool ‘n’) 


HSBFR entry (DBD #1) 


Generated from: a ee oe ee 


DLZACT TYPE = 
BUFFER 2 8 2 2 2 bytes 
. FF OO 


L 

M. DBD name 

N. Number of index buffers 

O. Number of KSDS buffers 
Number of ESDS buffers 


HSBFR entry (OBD #n) 


L | bytes 


Q. Delimiter (FF FF FF FF) 


= 


Figure 3-1. Application Control Table (ACT) Format 
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DL/I initialization is performed during CICS/VS initialization just 

after loading the CICS/VS nucleus. The DL/I online nucleus module has 
been loaded by CICS/VS in the same manner as a CICS/VS nucleus module, 
and its address is placed in the CICS/VS CSA optional features list. 


Nucleus and Table Initialization 


DL/I verifies the presence of the online nucleus by checking the 
CICS/VS optional features list DL/I entry for a non-zero value. Once 
verified, the program request handler entry point is moved to the 
COMREG using the MVCOM macro. Next, the application control table 
(ACT) is located and an indicator is set in each corresponding PPT 
entry for all application programs which will use DL/I. Each PSB name 
in the ACT is eight characters in length. Each PSB name is padded 
with a's, if required, to make it seven characters long, and a P to 
make it eight characters long. 


Next the PSB segment intent list is built. This is accomplished by 
loading each PSB defined in the ACT, except those defined as remote | 
PSBs, in ascending address space in the low end of the partition and 
moving the intent list, which is appended to the front of the PSB, to 
an entry in the PSB segment intent list table. The length of the PSB 
plus the length of the index work area, if required, are used to 
calculate how much storage to reserve. The segment intent list is 
overlaid during this process because its information is redundant. 
The PSB directory entry for each PSB is initialized with the address 
of the intent list, the PSB's storage address, and the amount of 
storage required. 


The DMB directory is constructed. One DMB directory entry is created 
for each unique data base (DMB) defined in the PSB intent list 
entries. DMB names are eight characters in length and consist of the 
DBD generation name extended to seven characters by at-signs (a) if 
necessary. The eighth character is D. At this time, a validity check 
is performed to ensure that all required DMBs, defined by the PSB 
intent list, have been defined in the CICS/VS file control table 
(FCT). If any are missing, a message is written on the system console 
and the operator is given the option to continue or cancel. If 
initialization is to continue, PSBs which require the omitted DMB(s) 
are flagged to indicate this condition. Application programs which 
use these PSBs are not scheduled. 


Initialization continues with the loading of all DMBs specified in the 
DMB directory. As each DMB is loaded, the corresponding entry in the 
DMB directory is initialized. A test is then made for HDAM and the 
defined randomizing routine is loaded. As the DMBs are loaded, they 
are initialized. After all DMBs have been loaded and initialized, the 
size of the buffer pool is determined. The size of the pool is based 
on a user-supplied parameter which defines the number of subpools, the 
control interval size of each VSAM data set, and the HDBFR 
Ssubparameter, which tells how many buffers will be in a subpool. 


After the pool size is determined, the required address space is 
reserved. Then the buffer pool prefix in the online nucleus is 


initialized. Next the subpool prefixes are created and initialized. 
There are 2-32 prefixes for each subpool. 


Load Action Modules 
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Upon completion of initialization of the buffer pool and prefixes, the 
DL/I action modules are loaded. As the modules are loaded, their 
corresponding entry points are moved to the SCD. The modules are 
loaded in the following standard sequence if not otherwise specified 
by a storage layout control table: 


DLZDBHOO Buffer handler 

DLZDLROO Retrieve 

DLZDLAO0O Call analyzer 

DLZRDBLO Data base logger 

DLZDLDOO Delete/Replace 

DLZDDLEO Load/Iinsert 

DLZDHDS0O Space management 

DLZDXMTO Index maintenance 

DLZDLOCO Open/Close 

DLZQUEFO Program Isolation ENQ/DEQ module 
DLZQUEFW Program Isolation ENQ/DEQ work area 
DLZCPY10 = Field Level Sensitivity Copy 


Initialize PSBs 


Upon completion of the loading of the action modules, initialization 
moves the specified PSBs using information stored in the PSB directory 
entries. After each PSB is moved, it is initialized and its 
corresponding PSB directory entry filled in. 


Attach Logger 


If data base logging has been specified by the user, the logger I/0 
module is initialized and attached. If the log module fails to 
attach, the data base log is closed and no logging takes place. 


Open Data Bases 


The final step of initialization is the opening of the data bases. 
The DMB directory is scanned for DMB's that failed during 
initialization and the open initial attribute is reset for any found. 
Next the data bases are opened via an ‘open all* call to the DL/I 
Open/Close module. All modules indicating open initial in the DDIR 
are opened by Open/Close at this time. 


Upon completion of the open processing, the IWAIT routine address is 
restored and control is returned to CICS initialization. 


DLZO DP 


Task Prescheduling 


DL/I task prescheduling is initiated when a task receives control on a 
Transfer Control (XCTL). The CICS/VS Program Control Program (PCP) 
examines the DL/I user bit in the CICS/VS PPT entry. If the bit is 
set and the task is not already scheduled, CICS/VS branches to DL/I 
prescheduling routine, DLZODP00. An indicator is set in the CICS/VS 
task control area (TCA) and control is returned to the CICS/VS PCP. 


| PSB Scheduling 


Licensed Material - Property of IBM 3-17 


A DL/I call or HLPI SCHEDULE command initiates PSB scheduling. The 
call function code is “*PCB" and the call contains the name of the PSB 
to be executed. The call is passed to the online program request 
handler via a language interface module and a scheduling validity 
check is made. If the’ call is valid, the parameter list is: checked 
for a User Interface Block (UIB) pointer parameter. If specified, a 
UIB. will be used for returning return code and PCB address list 
information to the application program. Upon completion, control is 
returned to the application program through the program request 
handler and the language interface. If the call is invalid, a two 
byte error return code is stored in the UIB or CICS/VS TCA and control 
is returned directly to the application program. For an HLPI 
command, the task abnormally terminates with a DLZ037I message 
indicating why the PSB was not scheduled if the call could not be 
completed. 


If the "PCB" call is made to schedule the system interface, the 
password is tested against the user generated one in the nucleus and 
the interface is tested for availability. A PST and dummy DSG are 
acquired for the caller, the task is marked as a system task, and 
control is returned to the user. 


The caller provides the name of the PSB to be scheduled or optionally 
if the caller omits the PSB name in the call list, the first PSB name 
in this program's ACT entry is provided as default. 


Task Scheduling 


This subroutine determines whether DL/I can support another task and 
creates an entry in the PST prefix area for this task. 


The SCD maximum task indicator is tested. If it is on, the task 
cannot be scheduled, the SCD suspended task counter is incremented by 
one, and an indicator is turned on in the SCD. A CICS/VS SUSPEND 
macro is issued to suspend this task. 


If the SCD maximum task indicator is off, an available PST prefix 
entry is located and initialized for this task. The DL/I task 
accumulator is incremented by one and a test is made to determine 
whether the number of DIL/I tasks now equals the maximum allowed. If 
yes, the SCD maximum task indicator is set. Next the SCD current 
Maximum task indicator is tested. If on, the task cannot be scheduled 
immediately, and the subroutine issues a CICS/VS SUSPEND macro to 
suspend the task. The SCD current maximum task indicator is set if 
the scheduling of the task causes the current maximum task value to be 
reached. Control is passed to the task scheduling subroutine. If a 
remote PSB is to be scheduled, control is passed to the remote 
scheduling subroutine which transfers the request to the remote 
system. 


PST storage is acquired from CICS/VS Storage Management and the 
storage address is saved in the assigned PST prefix. Task Scheduling 
consists of formatting the save area chains and storing the address of 
the assigned PST prefix. Control is passed to the PSB scheduling 
routine, DLZCOMO0O0. 


Local PSB Schedul ing 


This subroutine determines the segment intent of the PSB being 
scheduled and ensures that no more than one task is scheduled to 
update the same segment type(s) in the same data base unless program 
isolation is active. For retrieve sensitive only PSBs or update 
sensitive PSBs with program isolation active, a duplicate PSB is 
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created if a prior task was scheduled with the same PSB. If the task 
cannot be scheduled, a CICS/VS SUSPEND is issued to suspend the task. 
If not in use, but retrieve sensitive only, the in-use indicator is 
set and controlis passed to PSB initialization. If neither of the 
above is true, the PSB segment intent list entry must be scanned. If 
program isolation is not active and the PSB is not retrieve only 
sensitive, the PSB segment intent list entry must be scanned. 


The segment intent list for this PSB is located from the PSB directory 
entry. This list defines all segments in the data base(s) used by 
this PSB and also defines the PSB's sensitivity to them. The segment 
intent list entry is compared to the segment intent list entries of 
all scheduled PSBs. If no intent conflict is detected, the PSB 
initialization subroutine is called. Otherwise a CICS/VS SUSPEND is 
issued for the task. Upon completion of a successful segment intent 
scan, the PSB initialization subroutine is called. 


If it is necessary to provide duplicate copy(s) of PSBs, this routine 
acquires storage for the copy and moves the original copy to it. 
Addresses in the duplicate are adjusted correspondingly and a 
duplicate PSB directory entry is created. The level table(s) are then 
reset and control passed to the PSB initialization subroutine. 


PSB. Initialization 


PSB initialization consists of inserting the SDBs in the PSB into the 
SDB chain. The PSB is located from its PSB directory entry, and the 
address of the PCB address list is stored in the CICS TCA. Each PCB 
is located and the JCB pointer is used to obtain the address of the 
start of the SDBs for that PCB (JCBSDB1). Each JCB is accessed and 
the SDB chain pointers in the SDB and the PSDB in the DMB are updated. 
This process continues for all SDBs defined in the PSB. 


The address of the assigned PST is obtained from the PST prefix and 
stored in the PSB. Using this address, the PSB directory entry 
address is stored in the PST. The "DL/I is scheduled“™ indicator in 
the PST prefix is set. If the PSB indicates the user is update 
sensitive, a call is made to the DL/I data base logger module 
(DLZRDBLO) or CICS journal interface routine (DLZDRBL1) to write an 
application program scheduling record (X'08'). Control is then 
returned to the calling routine. 


Remote PSB Scheduling 


This routine builds a scheduling call parameter list and passes it to 
the CICS/VS ISC interface routine, DFHISP. The call format is again 
transformed and routed by CICS/VS to the remote system that was 
defined in the corresponding DL/I online nucleus RPSB definition. The 
scheduling call is then executed on the remote system by a CICS/VS 
mirror program, DFHMIR. The results of the scheduling call is 
returned to the local system by CICS/VS. If the scheduling call was 
successful, CICS/VS also returns the addresses of local copies of the 
PCBS acquired in the remote system. 


DLZPRHOO - ONLINE PROGRAM REQUEST HANDLER 


DL/I online calls are made in the same format as batch calls except 
that CALLDLI is used instead of CALL for Assembler language. The user 
issues a call instruction, passing parameters in the call list, and 
provides a register save area address in register 13. Communication 
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of the results of the call is also identical to the batch system. It 
should be noted that although the format of the call instruction for 
online is the same as in batch, storage used by DL/I to process the 
call (i.e., register save area, all data items in the call list, I/0 
area) must be acquired from CICS/VS dynamic storage due to the re- 
enterability requirements of application programs which run under 
CICS/VS. 


DL/I HLPI commands are translated into calls to the DL/I EXEC 
interface routine DLZEIPOO. This routine builds standard DL/I calls 
from HLPI commands 


Language Interface Module 


Although the language interface is not part of module DLZODP, it is 
involved in call processing. The language interface module is link- 
edited to each application program via the call instruction. The 
module has two entry points; one for Assembler, COBOL, and RPG II; and 
the other for PL/I. The first function performed at either entry 
point is to save the user's registers. Then a language indicator is 
set, the entry point to the program request handler is acquired from 
the DOS/VS COMREG, and a branch is taken to the program request 
handler. 


For HLPI, CICS/VS EXEC stubs, DFHECI for COBOL, and DFHPLII for PL/I, 
are used instead of the DL/I language interface module. 


Program Request Handler 


This routine is responsible for communication to and from the DL/I 
action modules and the user. It establishes the necessary takle 
addressability for the action modules, and formats and validity checks 
the call list. It also moves the requested data to the user's I/0 
area and returns control to the application program. 


The program request handler validates the DL/I call parameters before 
passing the call on to the next routine. For scheduling calls, 
control is first given to the task scheduling subroutine and then to 
the common PSB scheduling routine, DLZCOM00. For data base calls, 
control is given to the common data base call subroutine, DLZCOM01. 
This subroutine routes local calls to the call analyzer and remote 
calls to the remote data base call subroutine, DLZISCO1. 


The DL/I action modules process the local calls and return control to 
the program request handler through the call analyzer. A test is made 
in the program request handler to determine whether a pseudo-ABEND 
condition exists. If it does, a CICS/VS task ABEND macro is issued 
with an ABEND code indicating the reason. If an ABEND is not 
required, a test is made to determine whether the call requires data 
to be moved back to the user. The data is moved to the user's I/0 
area if required. The user's registers saved by the language 
interface are restored and control passed back to the calling 
application program. 


Processing of the system calls "CMXT", ‘STRT', "STOP", ‘'TSTR*, and 
"TSTP' is accomplished in the program request handler code. If these 


functions are identified in the call list a direct branch is taken to 
the appropriate routine. 


IWAIT Routine 
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The IWAIT routine is entered from the DL/I buffer handler (DLZDBHOO) 
or from other modules whenever an I/O wait or resource enqueue wait 
must be issued. The following processing occurs: 


e Registers 14 through 12 and 13 are saved. 


e Registers 12 and 13 are initialized with the CICS/VS CSA and 
currently dispatched TCA. 


e A CICS/VS WAIT to CICS/VS Task Control Management is issued. 
e Upon return, registers 14 through 12 and 13 are restored. 


e Return is to the calling module via register 14. 


DLZODP01 - TASK TERMINATION 


DL/I task termination is entered by the CICS/VS PCP when a user's task 
scheduled by DL/I returns through CICS/VS Program Management, issues a 
CICS/VS sync point, or when the application program issues a DL/I 
"TERM* call. This routine is responsible for purging any buffers 
altered by this task, calling the data base logger to write the 
application program termination record (X'07'), releasing any system 
resources owned by this task, and resuming tasks which were marked as 
not scheduled. 


Task Termination 


Task termination first determines whether this task was scheduled to 
use a remote PSB. If it was, control is given to the remote 
termination call subroutine. This subroutine issues a CICS/VS sync 
point call which causes DL/I programs processing calls on behalf of 
the local application program to be terminated. Next, task 
termination determines whether this task was assigned a PST prefix. 
If not, this task must have been stall-purged by CICS/VS and was 
originally suspended by the task scheduling module. [In this case the 
suspended count accumulator is decremented and the task's TCA removed 
from the DL/I suspended task chain. Control is then returned to 
CICS/VS Program Management. If the task terminates abnormally, its 
DL/I control blocks are dumped by DFHDC. 


If this task was assigned a PST prefix, a test is made to determine 
whether the task was scheduled. If not, the task was stall-purged by 
CICS/VS. This means this task was suspended by a CICS/VS Storage 
Management attempt to acquire either PST or PSB storage. If it was 
due to PST storage acquisition, the assigned PST prefix is cleared and 
put back on the free chain and the system resource allocation routine 
is entered. If it was due to PSB storage acquisition, the PSB 
directory entry is cleared, PST storage is freed, and the PST prefix 
is inserted in the free chain. Control is then passed to the system 
resource allocation routine. 


If the task was scheduled and active, normal task termination 
proceeds. First a DL/I internal ‘TERM* call is issued to the call 
analyzer (DLZDLA00). This call causes the analyzer to reset the level 
table(s) in the PSB. If update sensitive, the buffer handler 
(DLZDEHO0) is called to write out all buffers altered by this task. 
Next the PSB directory entry is tested for update sensitivity. If 
indicated, the data base logger (DLZRDBLO or DLZRDBL1, if CICS journal 
is in use) is called to write the application program termination 
record (X'07"). If the task had update sensitivity, the PST prefixes 
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are scanned and any waiting for scheduling because of segment intent 
conflict are ‘RESUMED’. 


Next the PSB directory entry is released. For update sensitivity 
PSBs, this involves resetting the “user scheduled" indicator. For 
retrieve only, a test is made to determine whether this was a 
duplicate PSB. If so, the storage acquired for the PSB is freed and 
the duplicate PSB directory entry is cleared. Control passes to the 
system resource allocation routine. 


If the system call interface is active the DDIR entries for the 
terminating PSB are checked for the waiting for close indicator. If 
the indicator is on and the use count of the DMB is now zero, the 
system task is resumed. 


System Resource Allocation 


This routine is responsible for determining whether any tasks are 
waiting to be scheduled and, if so, for taking the proper action to 
cause them to be scheduled. First the DL/I suspended task counter is 
tested. If nonzero, the first task on the DL/I suspend chain is 
located and a CICS/VS RESUME macro is issued. The suspend chain is 
then updated by removing the task's TCA from it, the suspended task 
counter is decremented, and, if zero, the maximum task indicator is 
reset. Next the DL/I task counter is decremented. If the task count 
is less than the current maximum task value, the current maximum task 
indicator is reset and PST prefixes which were '"WAITING' due to this 
condition are ‘POSTED' complete. Control is then returned to the 
CICS/VS PCP. 


DLZODPO02 - DL/I NORMAL SYSTEM TERMINATION 


The following processing occurs prior to CICS/VS termination. 

e DL/I system termination (DLZODP02) is entered from the DL/I linkage 
module DLZSTP00, as specified in the CICS/VS pre-termination 
processing list section of the program list table (PLT). 


e The DL/I log DIF is located and a DOS/VS CLOSE is issued for the 
DL/I log. 


e DL/I system termination is re-entered by CICS/VS System Termination 
Program. 


e A DL/I CLOSE call is issued to the DL/I Open/Close module 
(DLZDLOCO) to close all data sets for all DMBs in the system. 


e Return is made to the CICS/VS via the DL/I linkage module. 


DLZODP03 - DL/I ABNORMAL SYSTEM TERMINATION 


The DL/I abnormal system termination routine is entered from CICS/VS 
when the DL/I partition is to be terminated abnormally. The following 
processing occurs: 

e The DL/I control blocks are dumped. 


e Return is made to the calling CICS/VS program. 
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DLZODP04 - PSB SCHEDULING START-OF-TASK RECORD ROUTINE 


This routine issues CICS/VS DFHJC macros to write a CICS/VS Start-of- 
Task record to the CICS journal. 


This routine is entered from DLZCOM00 on successful completion of a 
PSB scheduling call for a local data base. 


This routine is not called if a PSB with read-only intent is 
scheduled. If a CICS/VS Start-of-Task record was previously written 
for the current CICS/VS logical unit of work, this routine returns 
control to its caller without writing the Start-of-Task record. 


DLZODP05 - TASK TERMINATION SYNC POINT ROUTINE 


This routine issues a CICS/VS DFHSP macro to force a CICS/VS sync 
point to be taken when a DL/I PSB termination or DL/I checkpoint call 
is being processed. For TERM calls, this routine is entered from the 
Di/I Task Termination Routine, DLZODP01. For CHKP calls, it is 
entered from DL/I Online Common Data Base Routine, DLZCOMO1. 


The sync point macro is not issued when DLZODP01 and subsequently, 
DLZODP05, is entered from the CICS/VS sync point program, DFHSPP, 
while processing a CICS/VS sync point. 


DLZODP06 - ABNORMAL TASK TERMINATION DUMP ENTRY 


This routine is entered from DFHPCP on abnormal task termination 
before dynamic transaction backout is performed by CICS/VS. This 
routine determines whether a DL/I formatted or DOS/VS IDUMP should be 
taken and gives control to the appropriate dump routine. 


DLZODP07 - ABNORMAL TASK TERMINATION I/O CHECK ENTRY 


This routine is entered from DFHPCP on abnormal task termination 
before SETEXIT check is made. This routine checks for and cancels any 
DL/I I/O requests that had not completed when the task was terminated. 


DLZODP10 - COMMON GET STORAGE ROUTINE FOR DL/I ONLINE MODULES 


This routine gets storage for CICS/VS (up to the maximum GETMAIN size) 
Or DOS/VSE (for requests beyond the maximum CICS/VS GETMAIN size) on 
behalf of various DL/I online routines. This routine adjusts the 
requested storage size and address to allow for the CICS/VS Storage 
Accounting Area and its Own storage accounting area. 


DLZODP11 —- DL/I ONLINE COMMON FREE STORAGE ROUTINE 
This routine returns storage obtained by using DLZODP10. 
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DLZERMSG - DL/I ONLINE MESSAGE WRITER 


The following processing occurs: 


e The DL/I error code is extracted from the active PST or froma 
parameter list pointed to by register 1. 

CICS/VS storage is acquired. 

e The appropriate DL/I message is created and logged to the 
destination CSMT via CICS/VS Transient Data Management and to the 
operator's console. 

e Return is made to the calling routine. 


If CICS/VS storage cannot be acquired or an error occurs while writing : 
to transient data, an indicator is placed in the TCA and return is 
made to the calling routine. 


DLZOVSEX - VSAM EXCP EXIT PROCESSOR 


The EXCP exit processor receives control directly from VSAM after each 
Svc 0 resulting from a GET or PUT call from the buffer handler. DL/I 
checks the ECB for completion of the I/O request. If the request is 
incomplete the CICS/VS environment is re-established and a CICS/VS 
task control wait is issued in behalf of the current task.’ If the ECB 
was previously posted or the event completion has caused the task to 
be removed from the wait condition, control is returned directly to 
VSAM via register 14. 
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DLZFSDPO - DL/I FORMATTED SYSTEM DUMP PROGRAM 


The batch and online nucleus programs use this module to dump DL/I 
control blocks. 


Entry Interface - DLZFSDPO 
This module interfaces with DLBNUCO in batch and DLZODP0O2 in online. 


Exit Interface 


This module returns control to caller. 


Register contents on Entry 


Ri - SCD address 

R13 - Save area address 

R1i4 - Caller return address 

R15 - Module entry point address 


Control. blocks 


ACB PDCA 
ACT PDIR 
BFFR PPST 
BFPL PST 
DDIR RIB 
DIB RPCB 
DMB RPDIR 
EIPL SBIF 
FERT scD 
FSB SDIB 
PCB UIB 
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DLZFTDPO - DL/I FORMATTED TASK DUMP PROGRAM 


This module formats DL/I task control blocks and writes them to. 
CICS/VS dump data sets whenever this module is linkedited with the 
online nucleus and an application program scheduled: to a DL/I data 
base ABEND. 


If the DL/I system terminates abnormally without the CICS/VS system 
abnormally terminating, this module executes for each DL/I task active 
at DL/I ABEND. 


Entry Interface - DLZFIDPO 
This module interfaces with DLZODP06. 


Exit Interface 


This module returns control to DLZODP06. 


Register Contents on Entry 


R6 - System TCA address 

R12 - User TCA address 

R13 CSA address 

R14 - Caller return address 

R1i5 Module entry point address 


Control. Blocks 


ACB PPST 
AcT PSIL 
BFFR PST 
BFPL RIB 
CSA RPCB 
DDIR RPDIR 
DIB RPST 
DMB SBIF 
FERT | SCB 
FSB SDIB 
PCB TCA 
PDCA UIB 
PDIR 
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DL/I FACILITY MODULES 


DLZDLAOO - CALL ANALYZER 


The call analyzer module is used for initiation of all data base 
calls. Under normal circumstances, it receives ccntrol from the DL/I 
common data base call routine (DLZCOM01) in the CICS-DL/I region or 
from the katch application program request handler (DLZPRHBO). It 
receives control from application program control (DLZPCCO0O) at 
termination of a DL/I batch partition or online task termination 
(DLZODP01) in a CICS-DL/I regicn. 


Fer internal DL/I calls tc update an index data Lase, this module 
(DLZDLA00) receives control from the index maintenance rodule 
(DLZCXMTO). 


The call types handled by the call analyzer module can ke divided into 
two groups: (1) normal data base calis, and (2) special control 
calls, which are sometimes referred to as ‘pseudo’ calls. The special 
calls are GSCD, get SCD address; TERM, write all buffers altered by 
that user; and UNLD, write last records for simple HSAM, HSAM, simple 
HISAM, and HISAM load or write all HDAM and HIDAM data kase buffers 
altered ky that user and close all data sets in the system. In the 
online environment, GSCD calls are processed by DLZCOM01 and as tc 
the call analyzer module. 


The primary responsikilities of the call analyzer are: 


e Test the first parameter in the call list for a valid four- 
character function and encode this into a one-byte function code. 


e Test the second parameter in the call list for a valid PCB address 
and store the PCB address in the PST. 


e Store the third parameter in the cali list in the Pst. This is the 
user's I/O area address. 


e Verify the format of all segment search arguments (SSAs) in the 
call list and fill in the corresponding level table. entry for the 
SSA in the call. 


® Do required checking based on call tyre and SSAs. 


e Test for field level sensitivity when processing SSAs and set on 
bit if present. Call DLZCPY10 to map user's view tc physical view 
if necessary. 


e bo sequence checking when loading a data base. 
e Pass control to the proper action module to process the call. 


If a data kase call requires the VSAM control blocks or SAM DIF 
representing the files within a data base to be opened, the analyzer 
calls upcn the DL/I open/close module (DLZDLOCO) to perform the data 
Management open for all files which may ke needed for that PCE. The 
DL/I open/close nodule is called when the UNID call is received to 
ciose all DL/I data kases opened in the batch partition. 


During normal processing of the SSA, when an SDB has been located for 
the segment, a test of the SDB will be made to determine if field 
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level sensitivity has teen specified (bit SDBFSB set on in field 
SDBXFL). If it has, an indicator will be set in the JCE, signifying 
that at least one segment has field level sensitivity (brit JCEFLS set 
on in field JCBLVT). 


When processing a qualified SSA, a check is made to determine if field 
level sensitivity has been specified for the segment. If it has, the 
FSB chain is scanned to see if the field name exists. If the field 
name does not exist or if the FSB is not flagged as an allowakle 
field, a return code of ‘AK' (invalid field name in call) is stcred in 
the PCB and return is made to the caller. 


If the field name is found and it is an allowable field, then 
qualification is set in the level table based on information in the 
FSB (qualification on data cr key). 


When the Cali Analyzer determines that at least one segment has field 
level sensitivity, it will no longer do the processing to determine 
the offset of the segment in the user's I/O area (entry in LEVUSEOF 
will not be initialized by the Call Analyzer). 


Prior to calling the insert, replace, or retrieve (only if called on 
behalf of insert) action modules, if the field level sensitivity 
indicator has been set in the JCB, the Call Analyzer will exit to 
CLZCPYi0 to map the user's view to the physical view. At this 

point ,the field level sensitivity indicator in the JCB will he reset. 
Any error passback from DLZCPY10 will be detected and exit will he 
taken to the Program Request Handier. 


The field level sensitivity indicator will also be reset if an error 
is detected while processing the SSAs. 


Control Blocks - DLZELA0O 


PST 
PDIR 
PSB 
DDIR 
DMB 
PCB 
JCB 
Level table 
SDB 
FDB 
FSB 


Register Contents 


Ri = PST address 

R13 = Save area address 
R14 = Return address 

R1i5 = Entry point address 


Interfaces - DLZDLAOO 
Receives controi from DLZPCC00, DLZODP00, and DLZPRHBO. 
Passes ccntrol to DLZDLROO, DLZDLDOO, DLZDDLEO (DL/I action modules): 


These modules need not save the analyzer‘s registers. They can return 
to the analyzer's entry point plus an offset stored in the SCD. 


3=28 Licensed Material - Property of IPM 


Call to DLZDLOCO - DL/I open/close: 


PSTFNCTN has open function 
PSTDBPCB has address of the FCB 


Call to DLZDBHOO - kuffer handler: 
PSTFNCTN is PSTPGUSR (X'07') 


Call to DLZCPY10 - field level sensitivity cory 


DLZDLOCO - OPEN/CLOSE MODULE 


The function of module DLZDLOCO is to open and close the DL/I data 
bases in either the CICS online ccntrcl region or the katch partiticn. 
DOS/VS open/close macros are used tc ocren and close data sets. 
DLZDLOCO opens/closes VSAM ACBs for all data base organizations 
kesides HSAM and simple HSAM, where DTFs are used. For simplicity the 
term ACB is used in the following description where ACB or DTF would 
be correct. For a HISAM data base with all functions, except for 
PSTOCDCB, both the KSDS and ESDS are opened/closed. 


The PSTFNCTN byte in the PST determines the type of operation tc be 
performed by DLZDLOCO. 


e PSTOCDCB (X'10') - Only cne ACB is opened/closed. It is located by 
DSG address (PSTDSGA). 


e FSTOCPCB (X"02') - For PROCOPT = L or LS one data kase is opened. 
Fcr PROCOPT # L or LS: 
Ail SDEs of that PCB are scanned and all referenced data bases are 
opened, that is, index data bases and logically related data bases 
are opened/closed with this call. 

e PSTOCDSG (X'40O") - One or two (HISAM) data bases are opened/closed. 
The ACB is located Ly DSG address (PSTDSGA). 

e PSTOCALL (X‘'04") 
= For open: 


All ACBs specified for initial opening are opened (CICS online 
control region only) 


' For close: 
Ail ACBs in the system are closed. 


e PSTOCCMB (X'01") - The ACBs of one DMB are opened/cicsed. The DMB 
directory address is passed in register 2. 


DLZDLCCO compares the following values specified in DBD generation 
with the VSAM catalog entries for a data base: 


e Control interval size 


e Key length CKSDS) 
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e Relative key position (KSDS) 


e Highest RBA used in the data base based on the PROCOPT. For 
example, PRCCOPT=L requires an empty data base (high RBA=0), while 
a data base must contain data if PROCOPT#L (high RBA>O). 


For HISAM, HIDAM, and HDAM data bases, the first control interval of 
the VSAM ESCDS is reserved for the DL/I control record. DLZDLOCO 
maintains this record. 


e If PRCCOPT=L or LS, space is acquired for one contrcel interval and 
the DL/I control record is constructed. The buffer handler 
(DLZDEHO0O) is called to write the DL/I control record. 


An open record, code X"2F', is written to the log file whenever a data 
kase is cpened. If the open call is successful, bit zero (JCBOPEN) cf 
the JCBORGN byte equals one (PCB call); and bit zero (PSTOCBAD) of the 
PSTFNCTIN byte equals zero. 


Ail FSDBs of a DMB are scanned for variable length segments with the 


edit/compression routine. All edit/compression routines that have 
*INIT' specified are called after “open"™ and before “close”. 


Register Contents 


R1 ~ PST address 

R2 - DDIR address if it is a close DMB call 
R13 - Save area address 

R14 - Return address 

R15 - Entry point address 


Contrel Blocks - DLZCLOCO 


® DL/I control record - CLZRECO 


e PSTIFNCTN field of the PST: 
Bit Value Meaning 


Process DSG 

Open fcr load 
Process specific ACB 
Close call 

Open call 

Open/close all DMBs 
Open/close a PCB 
Open/close a DMB 


FWN RE 


NAW 
PER ROR, 


DuuZDLDOO - DELETE/REPLIACE 


This module performs the logical actions involved in replacing or 
deleting segments in a DL/I data base for all organizations, except 
HSAM (which has no delete or replace). 


The replace function checks to ensure that the key field of the 
segrent was not inadvertently altered and that the replace rules were 
not violated. If the segment to be replaced is indexed, this module 
interfaces with the DL/I index maintenance module (DLZUCXMTO). 
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The first check made upon entry is a key check of the contents cf the 
PCB key feedback area to the key of the segment in the user's I/0 
area. If there are any changes, a 'DA* status code results. Next the 
segment is retrieved and the sequence fields are checked for any 
changes. If any changes occurred, a 'DA* status code again results. 
Then the remainder of the data is checked for changes. If there were 
no changes, a blank status code is returned. If there were changes, 
the data is replaced. 


If the segment to ke replaced is in an HDAM or HIDAM data base and the 
segment is variakie length, the segment and its prefix may be 
separated. The separation of data is determined by the min-byte value 
of DBDGEN and the current size of the segment. Also in this regard, 
if the segment was previously separated from its prefix prior tc a 
replace call, the replace will attempt to rejoin data and prefix. 


The delete function fcr a HISAM data Lase reads the segment to be 
deleted. If the organization is simple HISAM, the buffer handler is 
called to issue a VSAM ERASZ. Otherwise, the segment is deleted by 
setting the HISAM segment delete bit. In addition, if this is the 
root segment, the record delete bit is also set. 


The delete function for HDAM or HIDAM data bases includes a check to 
ensure that delete rules stated for the DMB will not be violated. If 
logically related segments with a physical delete rule exist in the 
data base within the physical hierarchy starting with the segnent to 
be deleted, a scan is made of ail the segments to ensure that they 
include no segment which has not been logically deleted. 


A scan Of the data kase from the point of deletion is perforred. 
During this scan, each segment is accessed twice: once on the way 
‘down', and again on the way ‘up‘'. While scanning ‘down', any segment 
in a logical relationship is inspected to determine its eligibility 
for deletion and to terminate as many logical relationships as 
possible. In some cases (for example, the last logical child fcra 
logical parent which has already been deleted through its physical 
path), the deletion of all, or a portion of, the logically related 
data kase record is required. In this case, the delete action is 
expanded to perform the total delete function (except for the 
checking) for the new data base record. Then the scan of the original 
data kase record is continued at the point of exit. 


When scanning ‘up', an interface with index maintenance (DLZDXMTO) is 
made if the segment is indexed. Physical pointers are adjusted to 
bypass any removable segments (HCAM or HIDAM segments which are no 
longer required) whose space is released by interfacing with the space 
management module, DLZDHDSO. fFcr nonremovable segments (segnrents 
required to remain because of existing logical relationships), a 
logical delete bit is set to indicate the status of the segment. 


A work area is oktained from the DL/I buffer pool to maintain the 
concatenated key and position of segments in the data kase record(s) 
being scanned during delete or for calls to index maintenance during 
replace. 


Delete/Replace Work Space Acquisition and the Work Space Prefix 


DLZDLBOO acquires space tc L-uild work area(s) from DLZCEHOO (kuffer 
handler) via a PSTGBSPC call. The calculated minimum size required is 
indicated in PSTBYTNM. If the space is available, the buffer handler 
returns the address of the selected buffer in PSTDATA and its size in 
PSTWRK1. 
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The first section of the work space contains a prefix whose format and 
contents are described in Section 5. Immediately following is the 
work area containing information ccncerning the segment to be deleted 
(or the index source segment to be replaced), its physical data kLase 
(HIDAM or HCAM), and other segments in that data base record. 


If a second work area is needed because of logically related segments 
and the space remaining in the current work space is large encugh, the 
next work area will ke allocated in the same work space (buffer) 
immediately following the previous work area. Forward and backward 
chains are maintained. If the remaining space is not large enough, 
another ktuffer is oktained from the buffer handler and chained to and 
from the previous work space. 


Excerpt in the case of an error condition, work areas are freed in the 
reverse order in which they were allocated. When the work area freed 
was the first one in the work space, the kuffer is freed via a 
PSTFBSPC call to the kuffer handler. 


Segment Delete Codes 


Segment delete codes utilized in the second byte cf the prefix of each 
DLI/I segment: 


Loe, Scies This segment has been deleted (HISAM only). 

op De ee This data tase record has been deleted (HISAM only). 

cede: atare This segment has been processed by delete. 

amg de saas This variakie-length segment has its data separated 
from the prefix. 


Ss see eset Reserved 
eats. eS This segment is no longer required by its physical parent. 
Peetarey ew dee This segment is no longer required by its logical parent. 


ee eee f This segment has been removed from its logical twin chain. 
1111 1111 This segment contains the separated data cf a variable- 
length segment. 


Interfaces - CLZDLDOO 


This module interfaces with the following modules: 
DLZDBHOO 
DLZDHLSO 
DiZRDBLO 


CLZDXMTO 
DLZQUEFO 


Control Blocks - DLZDLDOO 


e Delete workspace prefix 


e Delete work area. 
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Register Contents at Entry 


R1 Contains the address of the PST 

R13 Points to the current save area 

R14 Contains the DL/I analyze call function 
module (DFSDLAO00O) return point 

R15 Contains the nodule entry point 


Register Contents at Exit 


Ri Contains the PST address 

R1i3 Points to the current save area 

R1i4 Contains the DI/I analyze call function 
module (DFSDLA00) return point 

R15 Contains a return code (0) 


Register Contents on ABEND - in the SCD ABEND Save Area 


RL = PST address 

R2 ~ SCD address 

R3 = SDB address 

R4 - DMB address 

R5 - PSDB address 

R6/R10 Work registers 

Ri1 - Base - (subroutine CSECT) 
Ri2 - Base (main CSECT) 

R13 - Current save area 


R14/R15 - Work registers 


DLZDDLEO - LOAD/INSERT MODULE 


The function of DLZDDLEO is to icad HLDAM, HIDAM, Simple HISAM, HISAM, 
Simple HSAM, and HSAM data bases (in batch only) and insert segments 
into HDAM, HICAM, Simple HISAM, and HISAM data bases. 


DLZDDLEO is entered from the DL/I call analyzer (DLZDLA00) on icad 
requests for HIDAM, Simple HISAM, HISAM, HSAM, and Simple HSA™M 
segments, HCAM dependent segments, and insert requests for Sinple 
HISAM and HISAM roots. It is also entered from the retrieve nodule 
(DLZDLROO) on load requests for HDAM root segments, and insert 
requests for HDAM, HIDAM, and HISAM dependent segments. 
The nmcdule performs the following functions: 
A. HDAM/HIDAM load/insert - 
1. Normal segment: 
e Positioning: retrieve positions for inserting and loading of 
HDAM roots. For all other loading, DLZDDLEO sirulates 
retrieve positioning. 


e Space for new segment is acquired using the space management 
module, DLZDHDSO. 


e The segment is moved from the user's I/O area to the buffer. 


e Prefix pointers are updated. 
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e Actual write is performed by the buffer handler using VSAM. 


e Prefix pointers of twins and parents are updated. 


e The data kase logger (DLZRCBLO) is called to write the new 


segment and the updated prefixes. 


e If the segment is an index source segment, index maintenance 
(CLZDXMTO) is called. 


e Exit is to the call analyzer. 
2. Concatenated segment: 


° If the destination parent already exists, and the insert rule 
is physical or logical: same as normal segment. 


e If the destination parent exists and the insert rule is 
virtual: the logical child segment is inserted as for a 
normal segment, data of destination parent are replaced 
afterwards. ; 


e If the destination parent does not exist and the rule is not 
Ehysical, the destination parent is inserted as for a ncrmal 
segment; afterwards the logical child is inserted as a normal 
segment. 


HISAM and simple HISAM load 


e Main storage for a logical record for key sequenced data set 
(KSDS) and for entry sequenced data set (ESDS) is acquired 
from the buffer handler. 


e The root and ail dependent segments that fit into one logical 
record are written to the KSDS, using the buffer handler. The 
remaining dependent segments are moved to one or more records 
cof the ESDS. 


e® Pointers to those records are inserted. 
HISAM and simple HISAM root insert 


e A key equal to or greater than the request is made to the 
kuffer handler. If the key exists and the delete bit is 
flagged (HISAM), the space is reused; otherwise a II status 
code is returned. If the key does not exist, main stcrage is 

‘acquired from the buffer handler and the new record is built 
and then inserted by VSAM through the buffer handler. 


e® Old (if deleted) and new records are logged. 

HISAM dependent segment insert 

°. If the segment fits into the record for which retrieve 
(CLZDLROO) has positioned, it is inserted by. shifting the 
segments beyond the insert point to the right. If the segment 
does not fit into the record, a new ESDS record is built. The 
segment and shifted data are inserted into the new record. If 
the shifted data does not fit into the record, a second new 
ESCS record is created. 

e Pointers to the new records are created. 


® Old and new records are logged. 
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E. HSAM and simple HSAM load 


e The I/O areas allocated by batch initialization are used to 
mcve the segments from the user area. PUT locate is executed, 
whenever one I/O area is filled.. 


Blocks and Tables - DLZDDLEO 


PST 
COIR 
CMB 
PCB 
JCB 
Level table 
SDB 
FDR 
SCD 


Registers on Entry and to Ail Called Modules 
Ri = PST 


Interfaces - DPLZDDLEO 


This module calls the following modules: 


DLZRDBLO - Data tase lcgger 
DLZDBHOO - Buffer handler 

DLZDHDSO - Space management 
DLZDXMTO - Index maintenance 
DLZQUEFO - Queuing Facility 


Status Ccdes - DLZCDLEO 


II 
AO 
IX 
LB 


DLZDXMTO - INDEX MAINTENANCE 

The function of this module is to load - insert - delete the index 
pointer segment of a HIDAM data base and to load - insert - delete - 
replace the index pointer segment for secondary indexes of a HDAM or 


HIDAM data base. 


Akbreviations used throughout the module are: 


Iss Index source segment 
XDS Index target segment (indexed segment) 
XNS Index pointer segment (indexing segment) 


The following major functions are performed: 
ALL CALLS 

e Save PST jnecewacion an XMAINT wopeaces 
LOAD 

INSERT . 
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e Build index pointer segment in work area 
Fcr primary indexes - take key from user I/O area. For secondary 
indexes - construct segment from SRCH, SUBSEQ and CDATA fields. 
For /CK fields use PCB-key feedback area or read parents of ISS 
uSing SDBPOSC or PP pointers. Call user suppression routine, if 
needed. 

e Build temporary Llocks SDB, JCB, DSG 

INSERT 

e Build call list and SSA 

e Call analyzer 

e Take next index relationship of this ISS 

LOAD 


e Open data kase, if necessary, or work data set 


e Call buffer handler to write index record or write work data set 
for secondary index 


e Take next index relationship of this ISS 
UNLD 


e Write FF-key record to all index data bases belonging to this data 
base 


DLET 

e Call kuffer handler to get old ISS 

e Construct the old index pointer segment 

e For /CK fields take CONCAT key from DLET work area 
e Call user exit routine, to check for suppression 

¢ Build temporary ;Llocks 

e Log POINTER CHANGE and DEL.BYTE CHANGE 

e call buffer handler to change index 

e Take next index entry 

REPL 


e First part = DLFT 
e Second part = ISRT 


ALL CALLS 


e Restore PST 
e Return to calling module 


Entries: 


Receives control from DLZDDLEO (load/insert) and DLZDLIOO 
(delete/replace) 
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Register Contents 


R1 = PST address 
R14 = Return address 
R15 = Start address 
PSTWRK1L LSCE of ISS for ISRT, ASTR, REPL calls 
LSDB of ROOT for UNLD CALL 
PSDB cf ISS for DIFT call 
PSTFNCTIN "AO* Delete 
"Ait Replace 
*A2* Insert 
"“A3° Unload 
PSTBYTNM RBA of index source segment 


Interface to called modules: 


1. DLZDLAOO (analyzer) 
Called for insert, not load mode 


PSTIQPRM points to internal call list 
Segment name*X(keyvalue) is used as SSA 


2- DLZDEHOO (buffer handler) 
PSTFNCTN: PSTMSPUT load HIDAM index 
PSTBYLCT get index target segment again 
PSTSTLEQ get index pointer segment 
PSTPUTKY index of HIDAM data hbase 
PSTBFALT update index of HIDAM data kLase 


PSTBYINM: RBA of segment 
or Pointer to key to be inserted 


3. DLZDLOCO (open/clcse) 
R2: Address of CDDIR 
PSTFNCTN: PSTOCOCPN + PSTOCLD + PSTOCDME 
PSTOCOPN + PSTOCDMB 
PSTOCCLS + ESTOCDMB 


4. DLZRDBLO (logger) 


PSTWRK1: DBLLGLLT logical delete 
DBLNDXC + DBLCMC XMAINT chain naintenance 
PSTWRK2: Old segment code and old delete byte 


Old REA pointer 
PSTOFFST: Offset to new segment code 
Offset to new RBA pointer 
PSTBYINM: RBA of reccrd 
5. DLZDSEHO (work data set module) 
Is called at entry point - 12 to open work file. 
Return is to BALR if open not successful, 
tc BALR + 4 if open successful. 


6. DLZQUEFO (queueing facility) 
Called to do any program isolation queueing necessary 


Exits: 


Back to calling module. 
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Control Blocks - DLZDXMTO 


e Index work area — DLZXMTWA 


e SSA for the XMAINT call to the analyzer. 


DIZDLROO - RETRIEVE 


The DL/I retrieve module is responsikle for retrieval of all segments, 
independent of physical data base organization. When an application 
program requests the retrieval of a segwent, this module (DLZDLROO) 
gains control from the DL/I call analyzer, DLZDLAOQO. The analyzer has 
validity-checked the parameters in the application program's retrieval 
request. The analyzer has also placed this parameter informaticn for 
retrieval in the DL/I control blocks. 


Based upon this information, the retrieve module calls the DL/I kLtuffer 
handler module, DLZDBHO0, which controls physical I/O operaticns, to 
read the ;Llock containing the desired segment. Once the desired block 
exists in the data base Luffer pool, its presence is made known to the 
retrieve module. 


It is the responsibility of the retrieve module to “deklock™ segments 
within the block. Once the desired segment is located, the retrieve 
mcdule places the location and length of the segment in the PST 
control klock associated with the application making the retrieve 
request and returns to the DL/I call analyzer. Cnce a farticular 
segment within a data base is retrieved for a particular application 
program, “position“ is estaklished within the data base for the 
application program. This “position” is subsequently used to rcve 
sequentially through the data -Lase if the application frogran issues 
GN and GNP calls. 


If the block containing the segment to be retrieved already exists in 
the data Lase buffer pool, the request from the retrieve module to the 
buffer handler results only in the address of the desired data keing 
returned to the retrieve mcdule. No physical I/O is performed. In 
the case of HISAM, if a retrieve request involves inspection of 
several segments within a record, the retrieve module requests only 
the first of these from the buffer handler and finds the remaining 
segments itself, utilizing position infcrmation. Positioning 
infornation for each application prcgram and each data kase is 
maintained in the DL/I control blocks which are an extension of the 
PCB (that is, JCB, LEVVTAB, and LSDB). 


In addition to servicing all data base retrieval requests, the 
retrieve module performs "positioning" functions for all segment 
insertion. In this case, the retrieve module receives control fron 
the DI/I call analyzer module cn an insert call. Prior to the 
insertion of a new segment occurrence, DL/I rust insure that the 
segment does not already exist in the data base. It is the 
responsikility of the retrieve module to retrieve the Elock where the 
segment tc be inserted may already exist. If the segment does nct 
already exist in the data Lase, the block retrieved is normally used 
for segment insertion. Once the desired physical block is retrieved 
and positioning for segment insertion within the block is estaklished, 
control is passed to the DL/I load/insert module, DLZELLEO. If the 
data kase organization is Simple HSAM or HSAM, the retrieve mrcdule 
performs the I/O (Get/Put) rather than calling the buffer handler. 
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HIDAM root retrieval Ly key (qualified GU, GN), results in two buffer 
handling requests. The first retrieves the index segnent as any HISAM 
root. The second uses the RBA of the HICDAM root in the index segment 
to get the corresponding root segment. The rosition of the index 
segment is saved in a special SDB. 


Retrieval of segments addressed by secondary indexes is performed in 
the same manner, as far as possible, as the retrieval cf a HICAM 
primary root segment. (The SDBs are generated so that the index looks 
like a primary index and the index target segment like a HIDAM rrimary 
root.) The most important differences are: 


e The layout of the index pointer segrent is user dependent and is 
different from that of a primary index. 


e The sequence field of a secondary index is not necessarily part of 
the target segment and may be in a dependent segment. 


Variable length segments are handled by the routine VLRT which 
provides an exit to a user routine to handle any necessary data 
expansion after calling the normal buffer handler interface (SETL). 


Retrieval of logically related segrents requires special handling. 

The retrieved segment (the concatenated segment) consists of the 
logical child (that is the concatenated key and the intersection data) 
and the physical or lcgical parent (destination parent). Since the 
SDBs always reflect the user's view of the data base, the same prograr 
logic is used whether the segment to be concatenated to the icgical 
child is a physical or a logical parent. The concatenated key cf the 
destination parent is constructed using the physical or the logical 
parent pointer of the logical child and the physical parent pointer of 
the destination parent. For ISRT calls the concatenated key in front 
of the input data is used to position on the destination parent. All 
positions on the physical path to the destination parent and cn the 
twin chain of the destinaticn parent are maintained. 


Command Codes Affecting Retrieval 


D - The segment data is moved when the level takle is ugdated 
and not at return to the analyzer. 


L = The segment skip routine is employed to skifr to the last 
occurrence. 
ih - The RBA specified in the SSA is moved to the next pcsition 


pointer location in the appropriate SDB and an unqualified 
GN is performed. 


F - For a GN (GNP) call, the same logic is employed to 
retrieve the first occurrence as for a GU call. 


Module Layout - DLZDLR0O 


This module consists cf 60 subrcutines, a main entry routine 
(DLZDLRO), a main exit routine (DLZDLR1), and a general linkage and 
maintenance support routine (DLZKLNKD), each of which is preceded by a 
description in the form input - processing - output. The sukroutines 
are linked using macro DLZRLNK and the following macros (refer to the 
comments in the DLZRLNK source program listing): 


DLZRHDR - First macro of a sukroutine; generates DSECTs, 
ECU, and module identificaticn. 
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DLZRTLR —- Last macro of a subroutine. 


DLZRCLL —- Generates code to transfer control toa 
sutroutine using DLZRLNK. 


CLZREXT - Generates code to return control tc a calling 
sukroutine using DLZRLNK. 


The wcedule is supplied as eight files. The first seven, DLZDLRAO tc 
CLZDLRGO, contain the subroutines and the eighth, DLZDLNKD, ccntains 
the linkage and maintenance support routine that is generated using 
the macrc DLZRLNK. The seccnd file, DLZDLRAO, also contains the 
routines DLZDLRO and DLZDLRi. The distribution of the subroutines 
within the CSECTs contained in the files DLZDLRAO to DLZDLRGO is 
arbitrary and can ke changed at will, necessitating only that the 
affected CSECTs ke reassembled. 


Maintenance Support - CLZCLROO 


The wodule CLZRLNKC ccntains facilities to dynamically dump control 
Elocks and I/C kuffer sections. The extent and frequency of the 
dumping is controlled ky CLZRLNK macro parameters or contrcl fields in 
the PST as descriked in the DLZRINK source progran listing. 


Interfaces - DLZDLROO 


This nodule interfaces with the fcllowing modules: 


DIZDDLFO - Load/insert 
CLZDBHOO - Buffer handler 
DLZQUEFO - Queuing Facility 


Register Contents on Entry and Return 


RO = SCD 
Ri = PST 
R2 = PCE 


Register Contents During Execution 


RO = work 

R1 = Work 
[ R2 = Work, PCB 

R3 = JCB 

R4 = LEVTAB 

R5 = SDB 

R6 = Segment address 

R7 = PST . 

R8 = DSG part cf JCB 

R9 = Byte cr record location of SEGM in data base 
| Ri0= Work, FLD 

R1i1= Base register for linkage routine DLZRLNKD 

R1i2= Base register 

R13= Save area 

R1i4= Work 

R1i5= Work 
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DLZDHDSO ~- HD SPACE MANAGEMENT 


Module DLZCHDSO allocates and maintains free space on direct access 
storage devices for storage of DI/I segments in the hierarchical 
direct organizations (HDAM and HIDAM). This space is managed through 
the use of free space elements (FSEs) in each block of each data set 
of a data base and a kit map. The bit map describes Llccks that have 
at least one FSE which can contain the largest segnent in the data 
set. There is one bit map per data set consisting of one or more 
blocks distributed equidistant over the data set. 


Module DLZDHDSO consists of CSECTs which perform the following 
functions: 


DLZDHLDOO contains the entry point for the combined medule. It 
saves registers, initializes the work words in the PST, 
and branches to the appropriate module. 


DLZGGSP0O consists of a ‘driver‘ for all subfunctions that may be 
invoked to find space. It uses one byte of the work space 
to control invocation. This CSECT also controls 
formatting for HDAM when the root anchor rfoint is beyond 
the current end of the data set and formatting of new Lit 
map blocks, if necessary. 


DLZFRSPO returns to free space the space cccupied Ey a segnrent 
being deleted. It logs the deletion of the segment and 
updates the bit map if required. 


DLZRCHBO searches the Llock passed to it for an FSE that satisfies 
the current request. If none is found, control returns to 
the calling module. If the request can ke satisfied, the 
return is directly to the invoker of DLZDHDSO. 


DLZRRHPO searches the DL/I buffer pool for a block in the range 
passed to it. If one is found, module DLZRCHBO is called 
to search it. If the block is rejected, the search 
continues to the end of the pool, and control is returned 
to DLZGGSP0. To avoid changing the position of buffers on 
the buffer pool use chain, online and batch are treated 
differently. In a batch environment, the kuffer to ke 
searched is passed to DLZRCHBO and may be used without 
being requested from the buffer handler. Ina DLI/I cnline 
environment, the buffer is passed to DLZRCHEBO. If the 
request can ke satisfied from it, the buffer is then 
requested from DLZDBHOO and again passed to DLZRCHBO for 
actual alteration. 


DLZRRHMO searches the bit map for a bit that is a one and is also 
in the specified range. If one is found, its 
corresponding ;Llock number is returned to CLZGTSPO. If 
all bits are zero, PSTNOSPC is returned to CLZGGSPO0. The 
map search functions include creation and formatting of 
new bit map blocks, if necessary. To further proximity of 
space for related segments, whenever possible, the search 
within a given range is done from the center to the cuter 
ends of that range in both directions at the same tire. 


DLZLMCLO calculates search limits for DLZGGSP0. A switch is used 
to determine the appropriate limit - track, control area, 
delta control areas. The limits of the previous scan are 
used to break the range into two subranges. This prevents 
the re-requesting of blocks that were rejected during 
earlier scans. 
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DLZMPLCO 


DLZMMUDO 


DLZDCIOO 


determines the block number for the bit map block 
appropriate to the bicck numker passed tc it. It also 


-determines the relative kit fosition in the bit map block 


of the Elock number passed to it. 


turns the appropriate bit ON or OFF according to the entry 
point involved. The log is also called to reflect the 
change. 


tests to see if the device containing the data base is 
actually an FBA device if it was specified as such, and, 
if it is, calculates the CIs per track and rer cylinder 
and the scan value in cylinders equivalent to the number 
of FBA blccks specified during DBD generation. These 
values are stored in the DME for later use. 


Interfaces - CLZDHEISO 


The following modules are calied Ly DLZCHEISO: 


DLZDBHOO - Buffer handler 
CLZRDBLO - Data kase logger 


Calling Sequence 


R1 


R5 
R14 
R15 


On Return 


PST address 
PSTDSGA DSG address fcr appropriate file (all calls) 


PSTFNCTN 
PSIGTSPC 01 Get space 
PSTFRSPC O02 Free space 
PSTETMPF 03 Turn off bit in bit map 
PSTGTRAP 04 Get space close to rect anchcr 
point 
PSTREN RBN of segnrent tc get space close to - PSTGTSPC 


REN of segnrent to ke deleted —- PSTFRSPC 
FEBR - FSTGTRAP 
where BBB = relative block nurber, 
R = root anchor point number 
PSTBLKNM Block numker whese bit is to ke turned off - 
PSTETMPFE 
DMBP SDB Address of FSDB of subject segnrent 
Return point 
Entry point - CLZCHCSO 


PSIRTCDE - PSTICALOK Space oktained; REN is in PSTREN 


R15 


~ PSTGTSPC, FSTGTRAP 
Space freed - PSTFRSPC 

- PSTETMPF Space obtained. After insert, call 
CLZCHCSO to adjust bit map. 

- 0 For above return codes. 

- q Error has occurred; check PSTRICDE 


PSTRTCDE - PSIGTDS The RBN to get close to does nct exist 


- PSTNCSPC DLZCHODSO could nct find space in data 
set - PSTIGISPC, PSIGTRAP 
~ PSTIOERR See rLZDEHOO 
PSTNPLSP See DLZDBHOO 
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DLZDBHOO - DB BUFFER HANDLER 


The primary functions of module DLZDBHOO are: 


1. 


Ic satisfy requests for buffer space for the processing of the 
data biccks of HD data tases. For Simple HISAM and HISAM data 
kases and for the index of HICAM data bases, the VSAM Luffer 
management is used. 


To issue I/O requests to VSAM whenever data must ke read cr 
written. Thus, the buffer handler provides an interface ketween 
the DCL/I action modules and VSAM data sets. 


Whenever possible, to satisfy requests for data base segments and 
cr records from data currently available in its buffer pool 
without issuing an I/O request. For this purpose, data is 
retained in the pool as long as possible. Various features such 
as use Chains and alteration flags are enployed so that a 
centralized buffer managenent is facilitated for concurrent use by 
all agrplicaticn pregrans. 


The kuffer handler satisfies the following requests as indicated by 
PSTFNCTN : 


1. 


For processing HDAM, HICAM, or HISAM ESDS: 


Symkol Hex 
Function Function Description 


FSTEYLCT 02 If the request is issued for an HDAM 
or HICAM data base, the buffer handler 
retrieves the control interval whose 
relative kyte numker is stored in 
PSTBYTNM. The relative byte numker in 
PSTBYTINM is first converted tc a VSAM 
control interval number and an offset 
within the control interval. 


If this control interval is nct in the 
buffer pool, buffer space is cktained 
in the buffer pool, the buffer which 
will be used is written, and the 
control interval is read intc this 
kuffer ky a VSAM get call. 


If the requested control interval is 
already in the buffer rcol, nc read is 
done and the address cf the ktuffer 
ccntaining this control interval is 
passed kack to the caller. 


If the request is issued fcr a HISAM . 
ESDS data base, the buffer handler 
only issues the proper VSAM call for 
retrieving the record identified by 
the RBA which has keen passed to the 
buffer handler in PSTIBYINM. 


PSTBKLCT 01 The same as PSTBYLCT fcr an HDAM or 
HIDAM data base excerpt that a VSAM 
ccntrol interval numker is passed to 
the buffer handler in PSTBLKNM. 
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2. 


3-44 


For processing HICDAM index, 


(a) 


PSTBYALT 


FSTBFALT 


FSTGBSFC 


FSTFBSPC 


FST FGUSR 


ESTEFMPT 


FSTWRITE 


06 


05 


03 


04 


07 


04 


08 


Accessed Ly VSAM RBA 


Symbol 


Functicn 


PSTIBYLCT 


PSTEFALT 


Hex 


Function 


02 


05 


A locate relative byte numker (refer 
to PSTBYICT) is done first and then 
the kuffer which contains the control 
interval is warked as altered ky this 
specific user. 


If the request has been issued for an 
HDAM ocr HIDAM data base, the Luffer 
whose prefix address is stored in 
PSTBUFFA is marked altered. 


If, however, the request applies to a 
HISAM ESDS, the proper VSAM call is 
issued to write the reccrd 
immediately. 


A buffer with the length specified in 
PSTBYTNM (possibly rounded to the next 
multiple of 512 kytes) is provided to 
the caller. 


A buffer identified by a DMB nurker, 
ACB number, and contrel interval 
number in FPSTDMBNM, PSTACEBNM, and 
PSTBIKNM is freed, that is, it is 
marked empty and put cn the bottcm of 
the use chain. 


All the buffers which have been 
modified by a specific user are 
written. All nonreusakle buffers held 
by this user are marked empty and put 
to the bottom of the use chain. The 
bit representing this user is turned 
off in the user mask of all pernanent 
write error Llocks. 


If the purge request is on Lehalf of a 
CHKP function-call, all DMBs are 
scanned for index data kases and 
ENDRECS are issued to ensure that all 
VSAM kuffers are written to the data 
bases. 


All buffers of one data base cr 
certain buffers of a data kase are 
marked empty and fut on the bottom of 
the use chain. 


A logical record is added to a HISAM 
ESDS. 


Simple HISAM or HISAM KSDS: 


Description 
Retrieve the VSAM KSDS record ky the 


RBA which is in PSTBYTNM. 


Write the VSAM KSDS record by the RBA 
which is in PSTBYTNM. 
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PSTERASE OA Delete the VSAM KSDS record identified 
by the RBA which is in PSTBYTNM. 


(b) Accessed by key 


Symbol Hex 

Function Function Description 

PSTSTLEC 09 Retrieve the VSAM KSDS record whose 
key is equal to or greater than the 
key whose address is stcred in 
PSTBYTNM. 

PSTGET NX OB _ Retrieve the next sequential VSAM KSDS 
record. 

PSTSTLEG oc Retrieve the first VSAM KSDS reccrd in 
a data base. 

PSTPUTKY OL Insert a record by key directly into a 
VSAM KSDS. 

PSTMS PUT OE Insert a record which is in ascending 


key order into a VSAM KSDS. 


The kuffers which are used for satisfying these requests are provided 
by VSAM buffer management. The buffer handler provides VSAM control 
biocks (ACE, EXLST, and RFL) to VSAM data management when issuing the 
required VSAM acticn macro. 


The module LPLZCEHOO consists of three CSECTs: 


DLZDBHOO Contains the code for the functions 
e PpSTBYLCT 
PSTBKLCT 
PSTBYALT 
PSTBFALT 
PSTIGBSFC 
Maintenance of write chain and use chain 


DLZDBHO02 Contains the code for the functions 


e PSISTLEQ PSTMSPUT 
e PSIGETNX PSTERASE 
e PSTSTLBG PSTWRITE 
e PSTPUTKY 


Additionally, this CSECT contains the ccde required 
for preparing and issuing of VSAM calls and fcr 
precessing feedkack information by VSAM. 


DLZDBHO3 Contains code for the functions 
e PSTFBSPC 
e PpSTBEFMPT 
e PSTEPGUSR 


In additicn, this CSECT contains the subroutines for providing an 
enqueue/dequeuve function. 


Write Chain 


The new ccntrol intervals of a HIDAM cr HDAM data base are chained 
together on a write chain in ascending order of their control interval 
numkers. If one of the buffers on the write chain has to ke written, 
all kuffers on the chain are written. © 
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There is a write chain for every data base. 


It is maintained by 


storing the prefix numkers of the prefixes of the next higher and the 


next lower buffers in bytes 18 and 19 of the prefix. 


A bit switch in 


byte 7 of the prefix (X'80*") is on if a buffer is on a write chain. 


Use Chain 


Ail buffers are chained together in the order of their usage. This 
use chain is physically separated fron the buffer prefixes and 
consists of one-byte elements containing relative nurkers of prefixes. 
The order of the buffers on the use chain is indicated ky the physical 
order of these use chain elements. 


There is one use chain area per subpcol. 
The maintenance cf the use chain involves 


maximum of 32 entries. 


Each use chain area has a 


putting a use chain element on the botton or on the tor of the use 


chain as follows. 
be moved are saved. 


The contents of the use chain element which is to 
Then all use chain elements located behind the 


element to be put on top, or located kefore the element to ke put on 
the rEcttom, are moved to the address which is one byte lower than the 
load address (or one Lyte higher if an element is placed at the 


botton). 
the chain. 


ENQ/DEQ Subroutines 


The saved element is then stored at the top or the bottom cf 


Since transactions in an online environment may ke processed in multi- 
thread mode, the buffer handler may have to synchronize and/or delay 


requests for buffers and/or buffer space. 


This is accomplished in two 


subrcutines which perform ENQ/DEQ type functions and an interlock 


check. 
Function 


ENQ/DEQ existing control 
interval (CI) ID 


ENQ/DEQ pending CI ID 


ENQ/DEQ subfool 


ENQO/DEQ matrix 


For interlock detection, 


BFPLINMA interlock detection matrix 


BFELINWI work areas 
BFFLINW2 


Lakel 


BFFRPST 
PPSTEXCI 


BFFRNPST 
PPSTPECL 
FPSTCHAI 


SUBNQFI 
SUBNOLA 
PPSTSUPO 


BFPLPSIL 
BFPLFSIF 
BFPLPSIL 
PPSTMATR 


The following fields are used by the ENQ/DEQ routine: 


Control klock 


Buffer prefix 
PST prefix 


Buffer prefix 
PST prefix 
PST prefix 


Subpool information table 
Subpool information table 
PST prefix 


Buffer pool prefix 
Buffer pcol prefix 
Buffer pool prefix 
PST prefix 


the ENQ/DEQ routines use the contents cf 
the following buffer pool prefix fields: 


The ENQ/CDEQ routines use the following fields in the kuffer pccl 


prefix as work space: 


BFPLNQW1 
BF FLNCW2 
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Normally, the resources to ke enqueued are the existing contents of a 
buffer (existing CI IC) or planned contents of a kuffer (pending CI 
ID). Under certain circumstances, other resources may ke enqueued. 


Enqueuing of a resource consists of the following steps. 


If 
1. 


If 


1. 


the resource is available: 


Store the PST ID into a field of the resource reserved for this 
purpose (that is, BFFRPST, BFFRNPST, SUBNQFi, BFLESIF). 


Store the resource ID (for example, the buffer numker) into a 
field in the PST reserved for this purpose (that is, PPSTEXCI, 
PPSTPECI, PPSTSUPO, PESIMATR). 


Indicate successful ENQ with a return code of 4 and return to 
caller. 


the resource is not available: 


Find a position for the current PST in the interlock detecticn 
Tratrix. 


Indicate ky an appropriate entry that this PST is waiting and for 
which task. 


Check whether this waiting would cause an interlock. 
If no interlock possible: 


a. Chain with appropriate chain fields the current PST kehind the 
last PST already waiting for this resource. 


b. Return with a return code of 8 tc indicate that a wait 
condition exists. 


If an interlock would occur if the current PSI were to attempt tec 
wait on this resource: 


a. Remove the entry made in 2 above from the interlock detection 
watrix. 


b. Indicate with a return code of 12 that an interlock wculd 
occur and return. 


Dequeuing of a resource consists of the following sters. 


1. Rerove the resource ID from the appropriate field in the current 


2. 
3. 


4. 


PST. 
Remove the PST ID from the appropriate field in the resource. 


If the PST chain fields indicate that no other PST was waiting on 
this resource, return to caller. 


If another PST was waiting on this resource: 

a. Move the waiting PST ID into the rescurce and remove the 
corresponding wait indication from the interlock detection 
Matrix. 

b. Post the waiting PSIs and unchain the current PST. 

Cas If, because of 4.a, certain rows and columns in the interlock 


detection matrix are free now, make these available for use Ly 
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other PSTs and post those (see description of action taken cn 
pseudc-interlock conditions). 


d. Return to caller. 


For performance reasons, resources contain, in addition to the owning 
PST's ID, the ID of the last PST in the wait chain for this rescurce. 
These IDs are also maintained by the ENQ/DEQ routines. 


The interlock detection matrix consists of a pair of eight-bit 
matrices. The first bit matrix indicates for up to eight PSTs which 
PST is waiting on which other PST. Rows and columns are dynamically 
allocated to PSTs as required. A one-bit in the appropriate row and 
colunn indicates a wait condition. The second bit matrix is the 
transpose of the first. An imminent interlock is detected Ly scre 
Simple logical operations executed against those two matrices. In the 
event that eight PSTs are occupying this matrix when further FSIs 
request service involving a wait conditicn, a code of 16, indicating 
pseudco-interlock, is returned and no enqueuing takes flace. 


The following types of ENG requests may cccur: 


ENQ existing CI ID When a task either wants to write a buffer cr 
wants to get posted when reading into or writing a 
buffer is finished. 


ENQ rending CI ID When a task wants to reuse a buffer in the Ltuffer 
pool or when. a task wants to get frosted when the 
creation-of a pending (i.e, new) CI is finished. 


ENQ subpcol When there is currently no buffer prefix in a subpool 
allowing a pending CI ID. 


ENQ matrix When a task wants to ENQ on a resource currently 
held ky another task and no free row/column in the 
interlock detecticn matrix is available. 


The follcwing acticn is taken by the main routine of the buffer 
handler on a return code (RC) indicating nonsuccessful ENQ. 


Condition RC Issue 
Wait 8 Issue IWAIT macro. 
Interlock 12 Dequeue all resources held by this PST and 


retry the current CL/I request. 


Pseudo 16 Dequeue all resources held by this PST and 
enqueue on interlock detecticn matrix. This 
causes a wait condition. Issue IWAIT. Upon 
post, dequeue matrix and retry current DL/I 
request. 
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Control Elocks - DLZCBHOO 


PST 
PPST 
DDIR 
DME 
DSG 
SCL 
BFFL 
BFFR 
SBIF 


Interfaces - DLZDBHOO 


DLZDBHOO uses the FST for communicaticn from and to the calling 
modules and for work space. The DSG is used to obtain the DMB numker 
and ACB number of the data set which applies during a request. The 
address of the buffer pool prefix is oktained from the SCD. The 
address of the buffer prefix area is obtained from the kuffer pecol 
prefix. VSAM is invoked for alli I/0. 


In order to make sure that writing of log information is always ahead 
of updating a data base, the buffer handler may branch to a specific 
entry point of DLZRDBLO or DLZRDBL1. (Refer to the descripticn in the 
paragraph about DLZRDELO and DLZRUBL1.) 


DLZDEHOO issues the RELPAG macro for kuffers that are marked empty. 
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Buffer Handler Functicns and Required Fields 


The fcllowing chart illustrates which fields must be supplied tc the 
buffer handler (input) for each specific function and which fields are 
filled in ky the buffer handler (output) on completion of the 
function. 


1. Function used to access a HIDAM or HDAM data kLase 


PSTBYLCT 












| fied | Contents, | Field | Contents 


PSTBYTNM Relative byte number of desired segment |PSTDATA 


PSTOFFST 





Core address of desired segment 


Offset of segment from beginning of 
control interval 






























PSTBLKNM PSTDATA 






PSTBKLCT 
PSTBYALT 
PSTBFALT 


RBA of desired segment 
See PSTBYLCT 


Address of buffer prefix which is to be 
marked altered 


Number of desired bytes 


Core address of desired segment 
See PSTBYLCT 






PSTBUFFA 














PSTBYTNM 
PSTDMBNM 
PSTACBNM 
PSTBLKNM 


PSTGBSPC 


PSTFBSPC/ 
PSTBFMPT 






Address of provided buffer 












Control interval RBA 


All or part of buffer identifier may be 
processed. - 













PSTDMBNM 
PSTACBNM 
PSTBLKNM 

PPSTID 


PSTPGUSR 







Control interval RBA User identifier Any 
or all of these may be passed. 


2. Functions used to access a HISAM ESDS 


PSTBYLCT 
PSTBFALT 
PSTWRITE 







| rita | Contents| iets =| Contents 


PSTBYTNM RBA of the logical record to be read PSTDATA 
PSTBYTNM RBA of the logical record to be written 


PSTDATA Address of work area containing the 
logical record 


Prefix Address 






Address of the record within the buffer 

































PSTBLKNM RBA of the record added to the ESDS 


as calculated by VSAM 








PSTBUFFA 


3-50 Licensed Material - Property of IEM 


3. Functions used to access a KSDS by key (Simple HISAM, HISAM or HIDAM 
index) 


| rita | Contents | Fiets | Contents 


PSTBYTNM 












PSTSTLEQ Address of the field which contains 


search argument 


RBA of the logical record retrieved 


















PSTDATA 
PSTBYTNM 
PSTDATA 
PSTBYTNM 
PSTDATA 


Core address of record 
RBA of the logical record retrieved 
Core address of record 
RBA of the logical record retrieved 
Core address of record 







PSTSTLBG 










PSTGETNX 





PSTPUTKY Address of work area 
containing the logical 


record 
Prefix address 








PSTBUFFA 
PSTDATA 





Address of work area containing the 
logical record 


Prefix address 






PSTBUFFA 








4. Functions used to access a KSDS by RBA (HISAM or HIDAM index) 


| Field Contents 


PSTDATA © 























PSTBYLCT 
PSTBFALT 


RBA of the logical record to be retrieved Address of the record within the buffer 
RBA of the logical record to be written 
Address of record within the buffer 


RBA of the logical record to be erased 








PSTERASE 





Calling Seguence 


RO SCD address 

R1 PST address 

R1i4 - Return address to caller 
R1i5 Address of DLZDBHOO 


Fields Required (Independent of Function) 


PSTFNCTN Hexadecimal code fcr desired function 
PSTCSGA ‘Address of associated DSG needed fcr: PSIBYLCT, 
PSTBKLCT, PSTBYALT 
PSTBLKNM Identification of desired block needed for: 
A PSTBKLCT, PSTBFALT, PSTFESPC 
PSTDMBNM Number of associated DMB needed for: PSTBKLCT, 


PSTBFALT, FSTFBSPC, PSTGESPC 
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PSTACBNM Number of associated ACB needed for: PSTEKLCT, 
PSTBFALT, PSTFBSEC, PSTGESPC 
PSTBYTNM PSTBYLCI/PSIBYALT - relative byte address of 
desired segment - relative 
record numker of HISAM ESDS 
(high-order byte = X"80‘') 
PSTGBSPC - fullword size of requested space 
PSTBUFFA Address of buffer prefix for block to ke narked 
"‘altered* ~ PSTBFALT 
CSGDMENO DMB numker of the referenced data Lase 
CSGDC BNO ACB number of the referenced data set 


On Return 


R1i5 


Cao) 


Request satisfied 
Warning or error condition 


Fields Returned (Independent of Function) 


PSTOFFST Offset from PSTDATA kack to first Lyte of block 
PSTDMBNM DMB number 
PSTACBNM ACB numker 
PSTCATA Address of first byte of requested segment, 
record, or space 
PSTBUFFA Address of buffer prefix 
PSTNUMRO Number of reads done during this call 
PSTINUMWT Number of writes dcne during this call 
PSTCLRWT 
Bit 0 This caller waited during request 
1-8 Reserved 
PSTRTCCE 
Return 
Code Hex 


Function Function Description 


PSTCLOK 00 No error occurred during this request. 

PSTGTDS 04 Record, CI, or segrent requested is 
more than one CI beyond the end cf the 
data set - returned on FSTBKLCT, 
PSTEYLCT, PSTBYALT 

PSTIOERR 08 Requested CI, reccrd, or segment could 


not be read successfully on a 
PSTBKLCT, PSTBYLCT, or PSTBYAIT call 
or cculd not be written successfully 
on a PSTPUTKY, PSTMSPUT, PSTWRITE, or 
PSTBFALT call. : 
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PSTNOSPC oc An out of space conditicn occurred on 
the data set CASD while processing 
this request. 


PSTBDCAL 10 The byte at PSTFNCIN is not a valid 
function cr the DMB/ACR/BLKID in the 
PST do not match corresponding fields 
pointed to in PSIBUFFA for a PSTBFALT 
call. 


PSTNOTFD 14 A PSTSTLEQ call has been issued for a 
record whose key is higher than the 
highest key in the data set. 


PSTNWELK 18 The requested CI, reccrd, or segment 
will go in the CI, one greater than 
the current end of the data set. 

Space has been allocated in the pool 
to hold the new CI. The address is at 
PSTDATA. 


PSTNPLSF 1c The pool does not contain enough space 
to satisfy the request. 


PSTWROSI 20 A request (GBSPC) was issued for a 
buffer size which exceeds the highest 
kuffer size handled ky any subpool. 


PSTENDDA 24 The end of data set has been reached 
on a FSTGETNX call. 


PSTBYEND 28 A request has been issued with a key 
or RBA higher than the highest key or 
RBA in the data set. 


PSTECC 2C End of data set has been reached ona 
request by DLZDLOCO. 

PSTINLD 34 Invalid reauest during data set 
loading. 


DLZRDBLO - DB LOGGER 


The data base logger module logs the nodifications made to a data 
base. These data base log records are written to the system log. 
This wodule is invcked Ly several of the DL/I modules associated with 
data kase modifications. 


The logging of data kase modifications, additions, and deleticns is 
done on a physical basis to facilitate a quick recovery procedure. 
Only calls that actually cause a change to be made to a data kLase are 
logged. ‘Iwo sets of information are logged for each modification - a 
before set and an after set. 


The before information is that required Ly the data base backout 
utility. It is used to back out a partially completed update series 
and toc restore a data kase to some prior point in time. 


The after information is that required by the data base recovery 
routines tc restore the data base fron a previous backup copy. 


There are five kasic types of data base log records. 
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1. POINTER maintenance record 
When a segment is deleted or inserted and it causes a change in 
any cf the pointers in other segments, each pointer is logged 
separately as a POINTER maintenance record. A POINTER raintenance 
record is indicated by bits 1, 2, and 3 cf the DLOGFLG2 field of 
the log record being set to zero. 


2.  FHYSICAL INSERT record 
When a segment is physically added to the data base, a PHYSICAL 
INSERT record is written. This type of record is indicated ky a 
one in bit 1 of the DLOGFLG2 field. 


3. PHYSICAL DELETE record 
When a segment is physically removed from the data kLase, a 
PHYSICAL DELETE record is written. This type of record is 
indicated ky a one in kit 2 of the DLOGFLG2 field. 


4. PHYSICAL REPLACE record 
When a segment in a data base is modified, a PHYSICAL REPLACE 
record is written. This type of reccrd is indicated by a one in 
kit 3 of the CLOGFLG2 field. 


5. LOGICAL DELETE record 
When a CLET call is issued but the segment is not physically 
removed from the data kase, a LOGICAL CELETE record is written. 
Only the segment code and delete bytes are logged. A logical 
delete record is indicated by bits 1 and 2 of the DLOGFLG2 field 
being set to a one. 


In additicn to data base log records, the data Lase logger moduie also 
uses: 


e Application program termination records 

e Application program scheduling records 

e File cpen records 

e Checkpoint records 

The layout for these records is shown in Section 5 of this manual. 


Record types 1, 2, 3, and 5 contain the kefore and after infornration 
in the same record and have a log code of X‘'50". Tyre 4 requires two 
records. The after record has a log code of X*50"'; the before record 
has a log code of X*51". Additionally, if a physical insert reuses 
space of a deleted record, log records X*50* and X‘51* are written. 


If the change is an insert or a delete, the before and after are part 
of the same record. On an insert, the new segment, including the 
prefix, is logged as the change data. Ona delete, the old segmrent 
and prefix are the change data. In HL, Etoth insert and delete cause 
Changes to the free space elements (FSEs) within a block. The new 
FSEs and their offsets are logged following the change data and a 
count of the changes is placed in bits 4 through 7 cf the DLOGFILG1 
fieid. 


The information needed to create the log record is retrieved from the 
various CL/I ktlocks. A small amount of additional information is 
passed as parameters from the DL/I action modules. 


The data base log tape format is undefined records (UNDEF). The block 
Size is 1024 kLytes. Maximum record length is 512 bytes. If a segment 
cannot be logged into one record, it is internally spanned cver two or 
wore log records. The first record is lcgged with a data length 
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adjusted to match the data it contains. The offset for the seccnd 
record is incremented Ly the length of the first, and the seccnd is 
written aS a separate segment. The adjusting of data length and 
offset continues until the entire segnent is written. 

The data kase disk log uses VSAM with a CI size of 1024. The user 
buffer facility is used to ensure that the log records are written 


inmediately. The disk log record format is compatible with the tare 
log record. 


Control Rlocks ~ DLZREBLO 


e Data base log record 
e Application program termination record 
e Application program scheduling record 


e File cren record. 


Register Contents 
R1 - PST address 


R13 - Save area 
Ria - Return address 
Ri5 - Entry point address. 


High-crder byte of PSTWRK1 field in PST: 


Bit Value Definition 
0 1 Index maintenance call 
i= 3 000 Chain maintenance call 
001 Physical replace 
010 Physical delete 
100 Physical insert 
110 Logical delete 
111 Reserved 
4 1 Last change for this user call 
5 0 One FSE (physical delete or insert) 
1 Two FSES 
6 1 01d copy of physical replace 
7 1 New Elock log call 
4&6 tL No data - end of user call 
PSTWRK1 - Physical SDE address (except new block call) 


= Data length (iow halfword) if new block call 


PSTWRK2, PSTWRK3, PSTWRK4Y - Old data cn pointer maintenance and 
logical delete calls. FSE data on physical insert and 
delete calls. 


Before a data base klock is updated (that is, before the buffer 
handler issues the put for an updated block), the associated lcg 
information is first written to the log tape or disk in the fcllcwing. 
manner. 


After issuing a put to write a log block to the log tage or disk, the 


log module updates the count of written log biocks in the field 
SCDLOCOU. 
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When the log module processes a log call, in which a data base buffer 
is involved, the current count of written log records is stored from 
SCDLOCOU into byte 7 of the buffer prefix in the case of HD, cr into 
the field DMBACBLC in the ACB extension in the case of HISAM and HIDAM 
index. 


Before issuing any put for updating a data base block, the kuffer 
handler compares the value stored in the tuffer prefix (HD) or in the 
ACB extensicn (HISAM, HIDAM INDEX) with the current value in SCCLOCOU. 
If the twc values are unequal, the log information associated with the 
data base update has already been written out. If the two values, 
however, are equal, the buffer handler branches to entry point 
WRIAHEAD of DLZRDBLO to force the current contents of the log I/O area 
to be written out immediately. If, however, asynchronous logging was 
requested ky the user, the count comparison is bypassed, that is, no 
"write ahead" logging takes place. 


Legging in the Online System 


In the online system the put for the log Ltlocks is issued in a 
separate, asynchronous suktask, which is attached at system 
initialization time. This subtask is a separate CSECT within the log 
wrodule DLZRCBLO. 


The purpose for this is to avoid losing tasks when the end of volume 
condition is encountered on the log tape. 


The communication between the asynchronous leg subtask, the logger, 
and the CL/I online nucleus (DLZODF) is achieved by using three ECBs 
as follows: 


1. System ECE (SCCESECB, in SCD extension), which is used for the 
communication ketween the log module (DLZRDBLO) and DLZODFOO. 


2. Log I/O ECB (SCDELECB, in the SCD extension), which is used for 
the communication between the log module and the asynchronous log 
subtask. 


3. Private ECB (fullword in the log subtask CSECT), which is used for 
the communication ketween the asynchronous log suktask and the log 
module during the end of the I/O operation that was initiated Ly 
the lcg subtask. 


Figure 3-2 shows the events which take place when a PUT for a log 
block becomes necessary in an online environrent. 
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Asynchronous Log Subtask 
Logger DLZADBLO ONLLOGWR (SECT Name) 


|wain on 
Log 1/0 ECB 






. Lock System ECB System ECB 


Log 1/O ECB 


Private ECB 










. Unpost Private ECB 


. Post Log t/O ECB 


. IWAIT on Private ECB 





. Prepare PUT 
. Issue PUT 
ORSON . Post Private ECB 


. Unpost Log t/O ECB 






les on 
Log 1/O ECB 


10. Post System ECB RRERRRXER 3 System ECB 


Figure 3-2. Online Log Block Put Operation 
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The relationship between all modules invclved in the asynchronous log 
writing is as follows: 


A A A I ET A SE SORE NY SS DO AOD A SL A SSS SPD SO AS VED AES UD ES SSD SUD SSNS SG AD SUD we Se ep <i OS eS Sa tee ED eS Sh wey Se 


j DLZOLP 00 | DLZOLIOO {CLZRDBLO ] ONLLCGWR 
| PRH | | 
| Schedul.Rout | j ] 
| TERMIN.Rout | | j 
| MESSAGE Rout | | | 
| IWAIT Rout | | | 
| EXCPAL Rout | ] | 
a ne es 
| (Checks system | {When PUT has tc] 
| |ECB, if LOG | jbe issued, | 
| {subtask is ] Junpest systern | 
| Jactive: l J ECB | 
[System |1 Before a | ] | 
| ECB {| call is pro-] | ] 
| | cessed | ] cai | 
| | (PRH bran- | ] j 
| {| ches tc | j ] 
| { analyzer) | | | 
| J2 When a log j JAfter log sub- | 
| | request will] jtask is | 
| { be issued j | finished, post | 
| 3 Before | {system ECB i 
| { branching | | j 
| | back into a ]} | J 
| | task after |] | | 
| | control was |] | | 
| given up | | | 
|Log | jAttach asyn- {When PUT has {Waiting on log 
{I/O ECB | jchronous log Jto ke issued, ]1I/0O ECB 
| | | subtask jeost log i170 | ton 
| | j JECB, get log {After put is 
| | | |subtask startedjfinished, un- 
| | | |post leg I/C 
| | | | ECB 
|Frivate | ] |When put has tojAfter put, 
| ECB | | jbe issued, lcck]posts private 
| | | |Exivate ECB | ECB 
{ ] |} (170 is active) ] 
| i J IWAIT on 
| 


1 
jerivate ECB | 


DLZRDELi - CICS JOURNAL LOGGER 


Logging in the online system can also ke done ky using the journaling 
feature cf CICS. That means the DL/I log information as descriked 
akout module CLZRIELO will go on the sawe file as any CICS journal 
inforraticn. 


This is possikle because CICS uses different journal record IDs than 
DL/I (DL/I uses K'07', X*08", X‘2F*%, X°'50", X'51"). Any DL/I utility 
which uses a journal tape will check the record ID and frocess only 
those records, which have record IDs used by CL/I. 
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The general structure of DL/I log records, CICS journal records and 
CiIcS journal Ltlocks is shown in Figures 3-3, 3-4, and 3-5, 
respectively. 


CONTINUED ACCORDING TO DSECT 





0 2 4 


Note: DL/I Log Records are described in detail in Section 5 under the heading 
“Data Base Log Records.” 


Figure 3-3. [CL/I Log Record 






JOURNALLED 
DATA 


| SYSTEM PREFIX | PREFIX 
REC. USER PREFIX 


ee nay CIcS Journal Record 









LL 6b CICS/VS LABEL RECORD 
CICS/VS JOURNAL RECORDS 
DL/| LOG RECORDS 


Figure 3-5. Layout of a Journal Block 


in any 
combination 


If the user requests logging ky CICS journaling (UPSI kits 6 and 7 = 
0), CLZOLIOO loads module CLZRDEL1 instead of the standard log module 
DLZRDELO. This module provides the following services: 


e Build and write open records for each data base that has keen 
opened. DFHJC TYPE=WRITE is issued tc CICS. 


e Build and write log records on request by the acticn modules. 
DFHJC TYPE=WRITE is issued. 


e Write log records Luilt ky the sched/term. routine. DFHJC 
TYFE=WRITE is issued. 


e Initiate a physical put to the journal tare on request of the 
kuffer handler. DFHJC TYPE=WAIT is issued. 


Before a journal cail is issued to CICS, DLZRDBL1 checks if the task 
which is going to write a journal record already owns a JCA. If it 
does not, a GET JCA call is issued prior to issuing the DFHJC call. 


Since DLZRDBL1 is not reentrant, no task can be allowed to enter this 
module while log I/O is being processed. 
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DLZRDBL1 unposts an ECB (SCDESECB) prior to any physical I/O. In 
varicus parts of DLZODP this ECB is checked, and, if it is locked, a 
CicS wait is issued before control is passed to any action nodule. 


When log information is written by using CICS journaling, the writing 
of log information is always ahead of updating the associated data 
base kbLlocks. The scheme used is the same as with standard logging, 
the only difference being that the value for the number of written 
journal blccks (CICS ECN) is net manipulated ky the log module but is 
taken out cf the JCT. 

Control Elocks Addressed 

e Data base log reccrd 

® Application program termination record 

e Application program scheduling record 


e File cpen record 


DLZQUEFO ~ QUEUING FACILITY 


The DL/I queuing facility module provides resource ccntention ccntrol 
exclusively for the requirements cf program isolation (PI). 


Program isolation supperts resource ccntention ccntrol at the segment 
level (for HCDAM/HICDAM data kases) and at the record level (for HISAM 
data kase). Module DLZQUEFO provides the control thrcugh 

enqueue/dequeue mechanisms uSing a unique 7-byte resource identifier: 


Bytes 1-4 = a relative byte address (RBA) asscciated with the 
resource 

Bytes 5-6 = the DMB number 

Byte 7 = the ACB number 


The REAs used are: 

For segrent level resources - RBA cf the segment 

For record level resources - RBAt1 of the root segnent 
For variakle length segments where data separation has cccurred, the 
segment is considered a single entity with an ID based cn the REA of 
the prefix. 
The queuing facility module will automatically update the RBA portion 
of the resource ID in the event of a VSAM CI or CA split (HISAM cnly). 
The module also contains a deadlock detection routine and will resolve 
the deadicck Ly terminating one of the tasks invclved. 


Three basic control blocks are used to accomplish the enqueue/dequeue 
function: 


1. FST/PPST - used tc identify the task. 
2. ROB - used to descrike a particular resource. 
3. RRD - used to descrike a particular task"s request (either 


satisfied or pending) for a resource. 
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As shown in Figure 3-6, the RDBs are chained together, ktoth fcrward 
and kackward, to one of several queue heads located in the QWA 
(queuing facility work area). Note that the queue heads have cnly a 
forward rointer. The proper queue head is determined ky hashing the 
resource ID and using the results as an index to the takle of queue 
headers. 


There is one RCE for each resource, no matter how many tasks (maximum 
of 255) have enqueued it. The RRBs are forward and backward chained 
on two queues, one from the RDB and one from the PST fcr the 
requesting task. There is one RRD for each resource a task has cr is 
requesting. 


On entry to module CLZQUEFO, register 1 contains the PST address and 
register 15 contains the entry point address (high-order byte contains 
“ELAG' if specified). The function requested (enqueue, dequeue, 
verify, cr purge) is contained in the FSTFNCIN field cf the PST. If 
the requested function is enqueue, dequeue, cr verify, the PSTIQLEV and 
PSTWRK2 fields also are initialized in the PST. These fields ccntain 
the queue request level (read-only, update, or exclusive) and the 
address of the resource ID, respectively. See Appendix D for the 
Wacres used to request a specific function. 


Enqueue and verify function are essentially the same and are, 
therefore, processed by the same routines. The cnly difference 


between them is that the user is not the owner of the resource at the 
return from a verify request. 


Three conditions can he present for the processing of the enqueve and 
verify function: 


1. The rescurce is nct currently enqueued (no RDB exists) and is 
therefcre, availakle. In this case, if the requested function is 
enqueue, the user is queued as owning the resource and control is 
returned to the caller. If the requested functicn is verify, 
processing is complete. 


2. The resource is currently enqueuved, but is availakle at the 
requested level. In this case, if the request was for an enqueue, 
the user is queued as an owner at that level and contrcl is 
returned to the caller. 


3. The resource is not available. In this case the user is queued as 
waiting for the resource, deadlock detection is performed, and a 
CICS SUSPEND is issued pending the availability cf the resource. 


When the wait is satisfied and if the request was fcr an enqueue, 
ccntrol is returned to the user. If, however, the request was for 
a verify, the user is first dequeved (see dequeve function) as 
owner of the specified level before he is given control. 


Dequeue function processing first determines if the rescurce is 
currently owned by the requestor. If it is not, the request is 
ignored. If it is, the enqueue count at the specified level is 
decremented. If all levels are now zero, task ownershir is 
relinquished, and any waiting tasks that may now own the resource are 
promcted. If FLAG was specified, it is set for all waiting tasks. 


If the enqueue count goes to zero and it was the highest level, cut 
lower levels still exist, the ownership level is lowered and any 
waiting tasks that may now own the resource are promcted. 


Purge function processing searches the chain of RRDs queued off the 
specified PST for a task and unconditionally relinquishes ownership 
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for all resources encountered. Any waiting tasks that nay now cwn the 
resource are promoted. 


On return from module DLZCUEFO, return ccdes are set in register 15 
and in the PSTRTCDE in the FST. 


QH1 QH2 


RDB1 RDB2 RDB3 


PST1 ; RRD3 
PST2 RRD2 : RRD4 


Figure 3-6. Enqueue/CLequeue Control Block Relaticnshirs 
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The follcwing table identifies the mainline routines and the 
functional subroutines of the queuing facility module: 


Mainline Routines 


Routine Functicn 

QENCLCEQ Common Entry Logic 

QRETURN Conmon Exit Logic 

CENCVER Enqueue/Verify Mainline 

CNRENC New Resource Enqueue/Verify 

QERENQ Existing Resource Enqueue/Verify 

QREENQ Re-enqueue or Verify of Resource Already Owned 
QDEQ Cequeue Mainline 

CDECVER DCequeue Specific RRD 

QRELRSC Relinguish Ownership of Resource 

QPUR Dequeue all Resource for a Task 
DLZJRNAD Update Routine for RBA cn CI or CA Split 


Functional Subroutines 


Routine Functicn 

QLOCRDB Locate RDB or Fosition on Chain 
QLOCRRD Locate RRD or Fosition cn Chain 
CBLDRDB Build, Initialize, and Chain RDB 
CBLDRRD Build, Initialize, and Chain RRD 
CUCFRCLB Unchain and Free RDB 

QODASOWN Define Task as Cwner of Resource 
QWAIT Wait for Ownership of Rescurce 
QLOCNEO Lecate New Primwe Owner 

QPNOWCM Promote New Owners, Do Wait Chain Updates 
QPFLAGP Pass Flag Parameters To Waiting Tasks 
QUCLKDIN Detect and Resolve Deadlocks 

CDLKRSV Resolve CLeadiccks 

CGETBLK Get 24-Byte Block from Free Chain 
QRETRBLK Return 24-Byte Block from Free Chain 


Data Areas Used 


SCD 
PEST 
PST 
RDB 
RRD 
CWA 


Entry Points 


GENCDEG - General entry roint for request to enqueue, dequeue, or 
verify a resource, or to purge enqueuves fcr a task. 
DLZJRNAD - Entry point to update the RBA portion of any resource IDs 


as required due to data movement during a VSAM CI or CA 
Split (HISAM cnly). 
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DLZCEY10 - FIFLD LEVEL SENSITIVITY COPY 


DLZCPY10 has two entry points: DLZCPY10 and CLZSEGCV. 


The function of CLZCPY10 is to map the user view of a segment into its 
physical view for DL/I ISRT and REFI calls, in support cf field level 
sensitivity. On a path call, DLZCPY10 maps the segrent at each level 
of the path. If a level in the path is not field sensitive, the 
segment at that level is moved without modification. DLZCPY10 is 
invoked ky Cail Analyzer (DLZCLAOO). 


The function of CLZSEGCV is to convert a segrent fron either the 
physical view to the user view, or the user view to the physical view. 
DLZSEGCV is invoked ky DLZCPY10 to convert ISRT and REPL calls fron 
user view tc physical view. DIZSEGCV is invcked by Retrieve 
(DLZDLROO) to convert Get calls from physical view to user view. 
DLZSEGCV is also invcked Ly Retrieve to convert SSA values from user 
view to physical view. 


Interfaces - CLZCFY10 
This wodule interfaces with the following module: 


DLZDEHOO 


Register Contents at Entry 


R1 = PST address (LCLZCPY10) 
FER address (CDLZSEGCV) 
R5 = SDB address (DLZSEGCV) 
R13 = Save area address 
R14 = Return address 
R15 = Entry point address (DLZCPY10) 


Addr (DLZCPY10)+4 ~ (DLZSEGCV) 


Control Biccks - DLZCPY10 


SDB PSB 
SDB Exp. PCE 
FSB JCE 
FER LEV 
FERT PSB 
PST FDB 
ScD SEC 
PLIR DDIR 
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MPS CCNTRCL MCDULES 


DLZMSTRO - START MPS TRANSACTION 

This module is invoked Ly the user via a specific transaction code 
(CSDA) tc start multiple partition support (MFS). The 
responsikilities of this module are to: 

e Check if the DL/I nucleus is loaded. 


e check if MPS is already active. 


e Attach the master partition controller (DLZMPCO0O). 


Contrcel Blocks Addressed 
CSA-Conmcn System Area (CICS/VS) 
SCD-System Contents Directory 


Register Contents 
R13 Contains CSA address 


DLZMPCOO - MASTER PARTITION CONTROLLER (MPC) 


The waster partition controller (MPC) is attached by the start 
transacticn mcdule (DLZMS1IRO). 


The functions perforned by the naster partition controller are: 
e Initialize the MPC partition table (DLZMPCPT). 


e Define some of the XECEs required for cross partiticn 
communication. 


e Process all start Eatch partition controller (BPC) requests and 
attach a BPC for a specific Latch fartiticn. 


e Precess all stop partition requests. 


e Process the atend condition if the batch partition ccntroller 
attach fails. 


e Process the stop transacticn request to terminate MEFS. 


e Return ccntrol to CICS/VS after all activity is completed. 


Centrol Elocks Addressed 


MPCPT MFC Partition Takle 

SYSCCM System Communication Region 
CSA Common System Area (CICS/VS) 
ScD Systew Contents Directory 
MPCECBLT CICS ECB Pcinter List 

TCA Task Control Area 


Register Contents 
R12 Contains TCA address (at entry) 
R13 Contains CSA address (at entry) 
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Macros Used 


CFHKC TYP E=WAILT 

DFHKC TYPE=ATTACH 
DFHPC TYPE=ABREND 
CFHPC TYPE=SETXIT 
CFHPC TYP E=RETURN 


XECBTAB TYPE=CHECK 

XECBTAB TYPE=DEFINE 

XECBTAB TYPE=DELETE 

XPOST 

CLZBPCOO - BATCH PARTITION CONTROLIER (BFC) 

The batch partition ccntrcller (BFC) is attached ky the master 

partition controller (MPC) when a start request has keen made ry a 

batch partition. The functions performed by the batch rartition 

contrcller are: 

e Cefine XECB for cross partition conmunication with the MPS Latch 
initialization (DLZMINIT), MPS katch program request handler 
(DLZMFRH), and MEFS batch terwinaticn (CIZMTERM). 

e Issue the DL/I scheduling call on Lehalf cf the katch partition. 

e Prccess all DL/I calls on behalf of the batch partition. 

e Precess ABEND conditions occurring in the batch partiticn. 

e Return control to CICS/VS for normal and abnornal conditions 

This wodule must be link-edited with the language interface mcdule, 

CLZLI000. 


Contrcl Fiocks Addressed 


MPCPT MEC Fartiticn Takle 

TCA Transaction Control Area 

TWA Transaction Work Area 

PST Partition Specificaticn Takle 
PPST Frefix PST 


DLZXCB1 CL/I Farameter List 


Register Contents 


R12 Contains TCA address (at entry) 
R13 Centains CSA address (at entry) 


Macrces Used 


DFHKC TYFE=WAIT 
CFHKC TYP E=ATTACH 
CFHKC TYPE=RETURN 
XECBTAB TYFPE=CHECK 
XECBIAB TYPE=DEFINE 
XECBTAB TYFE=CELETE 
XPOST 
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CLZMPI0OO - MPS BATCH 


The MFS batch module is made ug of the fcllowing five routines: 
1. MEFS Batch Initializaticn (CLZMINIT) 

2- MES Eatch Termination (CLZMTERM) 

3. MEFS Batch Program Request Handler (DLZMPRH) 

4. MES Batch Abend (CLZMAENL) 

5- MEFS Eatch Message Writer (CLZMMSG) 


A separate descrirticn for each routine is given in the following 
text. 


MPS Batch Initialization - CLZMINIT 


This is cne of five rcutines that make ug module DLZMPI00O to support 
the Latch part of MPS. 


DLZMINIT reads the input parameter statement and checks it for 
validity. It then loads the user's program. Next, it determines what 
to use as a partition identifier by checking the PIK in the COMREG. 
This value is used in online messages. The value for ‘n' in XECB 
names is found in the partition table entry pointed tc in the area 
follcwing XECB DLZXCBO2, and is put into each XECETAR macro issued. 


After saving the program name and PSB name for use by cnline, an XECB, 
CLZXCEnl, is defined in the batch partition for communicating with the 
online partition. The online partition XECB, DLZXCB02, is XPOSTed. 
This lets the online partition know that there is an MPS batch job 
ready to run. 


When the online partition completes its initializaticn, the katch 
routine sets up STXIT routines, finishes other initialization 
activities, and goes to the user program. 

CLZMINIT is entered ky COS/VS job control at the start cf the jok. 


Contrcl Blocks Addressed 


MPCPT MFC Fartiticn Takie 

TCA Transaction Control Area 

PST Partition Specification Table 
COMREG Comrunicaticn Region 

XCB1 XECE DLZXCEnl and data fcllcwing it 


CIts for SYSLST, SYSLCG, and SYSIPT 
STXIT AB Savearea 

STXIT PC Savearea 

XECBS DLZXCRO2, DLZXCEn2, CLZXCEn3 


Register Contents (at Entry to Other Routines) 


e User Prcgrar 

Rl PCB list if net FL/I; cr a pointer tc a list containing 
the following if FL/I: 
- address of PCB list 
- address cf location containing size cf dynamic storage 
- address cf start of dynaric storage 

R13 Save area 

Ri4G Return address 

R15 Entry address 


® Message Writer (DLZMMSG) 
R14 Return Address 


e ABEND Rcutine (DLZMABND) 
Nc special register values 
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Macros Used 


XECBIAB TYPE=DEFINE 
XECBTAB TYPE=CELETE 
XECBTAB TYPE=CHECK 
XPOST 

XWAIT 

OPEN 

CLOSE 

EXTRACT 

GET 

GETVIS 

PUT 

CANCEL 

STXIT PC 

STXIT AB 

MVCCM 

COMRG 

LCAD 

LOCK 

UNLCCK 


MPS Batch Termination - DLZMTERM 


This is cne of five routines that wake ug module CLZMPIOO to support 
the katch part of MPS. 


The MEFS batch termination routine is entered when the user prcgram 
finishes. It tells the online partition to do termination activity, 
deletes its own XECR, and ends the job. 


Contrcel Blccks Addressed 


XCB1 XECE CDLZXCBnl and the data fcollcwing it 


Register Contents 


Registers have the same values at entry as when MPS Latch 
initialization (DLZMINIT) completed. 


Macros Used 

XFOST 

AWAIT 

ECJ 

LOCK 

UNLCCK 

XECBIAB TYPE=DELETE 


MPS Batch Program Request Handler -DLZMPRH 


This is one of five rcutines that wake ug module CLZMPIOO to support 
the kEatch part of MPS. 


The MPS katch program request handler routine is entered on each call 
to [CL/I made ky the user program. The user call list is validated and 
set up fcr the online partition to use. Then the online partiticn is 
notified ty an XPOST of XECB DLZXCEN2. When the call is ccnplete, 
data is mcved to the user"s I/O area. 


Contrcl BPlocks Addressed 
MPCPT MPC Partition Takle 
TCA Transaction Ccntrel Area 


‘PST Partition Specification Takle 
XCB1 XECB DLZXCE1 
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Register Contents 


e At entry: 
, RO Bit X"01° CN if PL/I, OFF if not PL/I 
Bit X*02* ON if HLPI, OFF if call interface 
RL If PL/I, points to list of pointers to parameters; 
if not PL/I, points to list of parameters 
R13 Save area 
R14 Return address 
R15 Entry address 


e Message Writer (CLZMMSG) 
R14 Return address 


Macros Used 


GETFLC 

STXIT Pc 

XPOST 

XWAIT . 

XECBTAB TYPE=CHECK 


MPS Batch ABEND - DLZMABND 


This is one of five rcutines that make uf module DLZMPI0O to support 
the Fatch part of MPS. 


The MES Latch abend routine has four entries: 


1. External routine 

2- Pc STXIT 

3. AE STXIT 

4. Other MPS Latch routines that cause abnormal termination. 


The first entry initializes registers and then joins the main path. 
The next two each identify which way the AREND routine was entered. 
They then issue an error message. Then the fourth entry jcins them as 
the online partition is notified. All entries delete the katch XECB 
and cancel or dump. 


When an abnormal termination situation has occurred, DLZMABND is 
entered by: 


e PDLZMINIT 
e DLZMTERM 
e DLZMPRH 
Contrcl Block Addressed 


STXIT AB Save area 
STXIT PC Save area 


Register Contents 


e At entry 
No special values except base registers initialized 


e .Message Writer (DLZMMSG) 
R14 Return address 


Exits 


JCUMP #$If dump requested 
CANCEL If no dump requested 
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Entry Points 


External routine Abncrmal end for separately assembled routine 


STXIT AB If akmormal end entered by DOS/VS 
STXIT PC If program check determined by DOS/VS 
XPOST Entry Other akncrral end when BPC must ke nctified 


Macros Used 


CDLZICUMP 

LCCK 

UNLOCK 

XFOST 

XECBIAB TYPE=DELETE 
JDUMF 

CANCEL 


MPS Batch Message Writer ~ DLZMMSG 


This is cne of five rcutines that wake ug module DLZMPIOO to support 
the katch part of MFS. 


There are two entries: 


e Frem external routines 
e From routines within DLZMPIOO 


The MEFS batch message writer routine handles all messages issued by 
the MPS katch partition. At entry, a parameter list is set up. The 
first parameter is always a pointer to the message nunker. Other 
paraneters, if any, are as needed for the message. 


When a message is to ke written to SYSLOG and/or SYSLST, the DLZMMSG 
routine is entered Ly: 


e DLZMINIT 

e DLZMTERM 

e DLZMPRH 

e DLZMAEND 

e External routines 


Control Blocks Addressed 


DIFs for SYSLOG and SYSLST 


Register Contents 


e At entry: 
R14 Return address 
Base registers already initialized excert for external routine 
entry, which initializes registers kefore joining nainline 


e At entry to message takle (DLZMMSGT): 


R1 Points tc parameter list 

R4 Base register for DILZMMSGT 

R5 Address of where message is to ke placed 

R7 Length of message set up before calling DLZMMSGT; 
after call, R7 has total message length 

R9 Points to PST (for checkpoint message DLZ1051I) 


R10 Second base register for DLZMMSGT 


3-70 Licensed Material - Property cf IBM 


Exits 
To calling routine via L-ranch register 14 
Macros Used 


PUT 


DLZMSTPO - STOP MPS TRANSACTION 

This nodule is invoked when a user wants to stop MPS. The user infuts 
a specific transaction code (CSCD) defined to initiate the stcp ' 
transacticn processing. The module then posts the particular XECB 
that causes the MPC tc end the MPS envircnment. 


After the post, the MFC allcws katch jcks already executing to 
complete, but will not allow any new ones to start. 


This transaction should ke started ktefore CICS/VS non-inmediate 
shutdcwn is initiated. 


Macros Used 


XECBTIAB TYPE=CHECK 
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DATA BASE RECOVERY UTILITIES 


DLZBACKO - BATCH BACKCUT INTERFACE 


The batch backout interface module reads and validates any ‘LI' 
control statements from SYSIPT. A lcg input specification takle 
describing each log file tc be precessed is created. The module then 
reads the CL/I log files and passes the data base log records to the 
data kase backout module (DLZRDBCO) for processing. 


Ry reading the log files in a backward mode, this module is akle to 
process the data kase records in reverse sequence without using an 
intermediate work data set. When a -Elcck is read in, it is searched 
and the sequence field located at the end of each logical reccrd is 
replaced by the length of that logical record. With the length thus 
in the back of a record as well as in the front, it is deblocked and 
spanned. 


‘The interface process includes the following record tyres: 


X'O07' - Application program termination record 
X"'08" - Applicaticn progran scheduling record 
X"41" Checkpoint reccrd 

X'50" - Data kase log record 

X'51" Data kase log record 


The batch backout utility is executed under DI/I control as an 
application program. Frocessing cf mcdule DLZBACKO is as follows: 


1. Contrcl is received from DL/I initialization and the PSB name is 
cbtained from the parameter data. 


2- The log file is opened to be read backward. 


3. The log file is read kackward and records bypassed until the first 
data case log record for the PSE is cbtained. 


4. An apelication f~rogram termination record (X‘'07') fcr the PSB 
indicates no backout necessary, the message “BACKOUT COMPLETE" is 
issued at SYSLOG, the log is closed, and the job is terminated. 


5. Cata kase log records (X"50* and X'51i') are passed to module 
DLZRDECO to be processed against the appropriate data Lase. 
Processing terminates when an application progran scheduling 
record or a checkrcint record is read, the message “BACKOUT 
CCMPLETE" is issued at SYSLOG, the lcg is closed, and the job is 
terminated. 


If end of file is reached on the log (i.e., the header record is 
read), it is closed. If more log files are to be processed, the akcve 
process is repeated starting at step 2. Multiple log files must be 
processed in reverse order of their creation. When all log files are 
processed, a “BACKOCUT CCMFLETE" message is issued and the jok step is 
terminated. The jok is terminated by returning control to DL/I which 
purges all ktuffers, closes all DMBs, and closes the cutrut log file. 


Register Contents on Entry 


RL = PSE list address 
R13 = Save area 

R14 = Return 

R15 = Entry point 


3-72 Licensed Material - Property cf IBM 


Contrel Blocks - CLZBACKO 


Application program scheduling reccrd 
Application program termination record 
Checkpoint record 

Tata base log reccrd 

DMB 

PDIR 

PSB 

PST 

SCD 


External Modules Called 


DLZRDBCO - Called to interface with CL/I and perform backout. 


Record and Message Formats - DLZBACKO 


All messages are sent to the SYSLOG and SYSLST devices. The messages 
are ccntained in module DLZBACMO. 


DLZRDECO - DB CHANGE BACKOUT 


This module receives control frcem DLZEBACKO with a log record to 
process. It calls open/close (DLZDLOCO) to open the DMB specified in 
the record unless the data kase is already open. ‘The buffer handler 
(CLZDBHOO) is called to retrieve the KSIS or ESDS block as indicated 
by the key or the ESDS relative block number or relative byte address. 


The data in the kuffer is replaced with the ‘old‘* information in the 
log, thereby nullifying the offending programs update. In the case cf 
HD, when a physical delete or insert record is processed, space 
Management (DLZDHDSO) is called to update the free space elements and 
bit wap, if necessary and to build the input data for the data kLase 
logger. CLZRDBLO is called to record the changes made to the data 
kase. 


The kuffer handler is then called again to mark that Luffer altered 
and ccntrol is returned to DLZBACKO. 


Register Contents and Control Blocks on Entry 


R1i = PST address 
Ri3 = Save area 
R1i4 = Return 
R1i5 = Entry point 
PSTSCDAD = SCD address 
ACDRLCG = Address of data base log record within DLZBACKO 


PSTDGU & PSIDGN must ke zero on initial entry 


Control Blocks - DLZRDBCO 


Data kase log record 
CCIR 
DMB 
CSG 
PCB 
PCIR 
PSB 
PST 
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SCD 


External Modules Called 


DLZDBHOO - Called to read a data kase record and to mark the 
kuffer altered 
DLZDHESO - Called to free cr reserve space in an HAM or 
. HIDAM record 
DLZDLOCO - Called to open data kase 
DLZRDELO - Called to log backout modifications to duta base 


Interface with External Modules 


All mcdules expect R14 + R15 to contain return address + module 
entry point address. 


DLZDLOCO 
R1 = address of PST 
R2 = address cf DDIR entry fcr DMB to ke opened 
PSTDSGA = address of DSG to cren | 
FSTFNCIN = PSTCCDMB + PSTOCOPN 
SCDCWRK = address of normal log record work area 
DLZDEHOO 


R1 = address cf PST 


PSTBLKNM = RBN if HD ESDS 
PSTACENO = 1 
PSTDCMBNO = 1 
FSTBYINM = RBA if HISAM ESDS cr address of key if KSDS 
FSTFNCTN = desired function 
DLZDHCSO 
Ri = address of PST 
R5 = address of PSDB of segment 
FSTOFFST = offset to segment from bteginning of block 
PSTCOLCE1 = indicates kackout in control (for logger) 
PSTFNCIN = PSTFRSPC + X*80" (to show Lackout in control) 
DLZRDBLO 
RO SCD address 


Ri = PST address 


FSTCODE1 = PSTINTNT + PSTSCHED to indicate Lackout calling 
PSTCATA = address of data in buffer 
SCDCWRK = address of kackout log work area containing the 


control information fcr this log record 


Register Contents on Exit 


All registers are restored with the excertion of register 15 which 
contains a return code. If this code is non-zero, DLZBACKO will print 
and tyre the appropriate error message. 


Error Codes and Handling - DLZREDBCO 
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All error.codes are passed to CLZRBACKO in register 15. 


DLZURCBO - DB DATA SET RECOVERY 


The data base data set recovery utility module DLZURDEO is executed 
under DL/I control as an application program. Control is passed to 
DLZURCDBO from DL/I initialization. This module is conprised cf two 
independent but logically related functions. The first consists of an 
inage dump and a change accumulation processor. The PCE address is 
saved, and a GSCD call is issued to oktain the PST address. Ccntrol 
is passed to DLZURCCO to read and process control statenents frem 
SYSIPT. From information saved by DLZURCCO, a DME is loaded frem the 
Core Image Library to oktain the physical characteristics of the data 
set to be recovered. The DL/I cpen/close routine (DLZLLOCO) is 
called to open the cutput ACB and the input file is opened. Then the 
program enters a dump/cum data merge routine. This routine selects a 
dump record, merges any accumulated changes from the cun data set, and 
a call is made to the kuffer handler (CLZDBHO00) tc write the new 
record to the output data set. Upon completion, a partial or 
completely recovered data set may exist. If no additional changes are 
to ke applied through log files, the program calls the CL/I oren/close 
rcutine (CLZDLOCO) to close the output ACB and terminates. 


If additicnal changes are to ke applied from log files, the rfrogram 
enters the second function. This routine opens the logs, scans the 
log tc find a record that applies to this data set, and merges the 
data fron the log to the data set record. Upon completion, the 
routine does post-processing and a recovered data set then exists. 


The cperation of this routine depends on certain DL/I functions to 
process the logs. ‘The log is scanned for a watching data btase/data 
set name record. When one is enccuntered, the record IL, either a key 
of a KSDS record or a relative Llock numker of an ESDS record is 
saved, and a call is made to the buffer handler (DLZDPHOO) requesting 
that the record ke retrieved. Upon successful return, the log record 
data is merged with the returned record, and a call is made tc the 
buffer handler requesting that the record be marked as altered to . 
cause rewriting. ‘The reccrds from the log are thus processed until an 
end of file is encountered on the lcg input. At this time, a call is 
made to the buffer handler requesting that all altered ktuffers ke 
purged, that is, that all records that have been altered be rewritten. 
The program then calls the DL/I open/close routine (DLZCLOCO) tc close 
the cutrut ACB, and the program terminates. 


Blocks and Takles - CLZURDBO 
This module utilizes certain DL/I blocks, including the PST, DSG, DMB, 
DMB directory, SDE, PCB, JCB, and SCLC. Additionally, several record 


formats are used as follows: 


1. HISAM reorganization header and data records. See HISAM 
reorganization unload (module DLZURULO) for details. 


2. Data tase image dump header and data records. See data base data 
set image copy module (CLZUCMP0) for details. 


3. Accumulated change CUM header and data records. See change 
accumulation module (DLZUCUM0) for details. 


4. Data base change log records. 
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Normal Entry Points 
The only entry point to this mcdule is DLZURDBO. 


Register On Entry 


Ri = pointer to fullword containing address of PCE 


Registers On Exit 


All registers are restored to entry conditions. 


Modules Called ty DLZURDBO 


The recovery control statement processor (DLZURCCO) is called to read 
and validate any input control statements. 


Ri = frointer to recovery common area 

The CDL/I open routine (DLZDLOCO) is called to open a specific ACE. 
R1 = pointer to PST 

The DL/I kuffer handler (DLZDBHOO) is called to retrieve and write a 
specific record, mark a buffer altered, and purge (rewrite) all 
alitered ktuffers. 


Ri = fFointer to FST 


The DL/I close routine (DLZDLOCO) is called to close a specific VSAM 
ACB. 


R1 = pointer to FST 


Error Codes and Handling - CDLZURDEO 


All codes are in the form of messages. The module DLZRIBMO contains 
all error messages issued by the Data Base Data Set Recovery Utility. 


DLZURCCO - Recovery Control Statement Processor 


This module reads and validates the input control statements from 
SYSIFT. The *S" control statement describes the data Ltase to Le 
recovered. The ‘LI" control statements describe the log files to ke 
processed. Information from these statements is saved in the recovery 
conmncn area for use Ly DLZURDRO. 


Normal Entry Point 
The only entry point to this nmcdule is DLZURCCO. 


Registers on Entry 


Ri = pointer to recovery conmon area. 


Registers on Exit 
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All registers are restored to entry conditions except R15, which 
contains a return code (see below). 


Error Codes and Handling 


Messages are issued to SYSLST and SYSLOG for any invalid control 
statements. On return to DLZURDBO, R15 is set as follows: 


R15 = 0 - No errors 
R15 = 4 - No input control statements 
R15 = 8 - Input control statement error 


DLZUDMPO - DB DATA SET IMAGE DUMP 


The data base data set image copy utility module DLZUCMPO is executed 
as a standard DOS/VS arplication prcgram and creates a kackup ccry of 
a specific data base data set. Input may be either a KSDS (HISAM, 
Simple HISAM, or HIDAM INDEX) or an ESDS (HISAM, HIDAM, or HDAM). The 
outrut is used as input to the data base data set recovery utility. 
Processing is as follows: 


1. A control card is read from SYSIPT and preliminary validity 
checking is performed on various fields. The input card defines 
the data tase/file to be dumped, the dump cutput symbolic 
filenames, and the number of output copies to be created. 


2. The device type is determined for each output file specified and 
the file(s) are opened. 


3. The DMB is loaded from a core image library to oktain the physical 
characteristics of the data base file to be dumped. 


4. A header record is written to the output file. This record 
contains information necessary to allow the use of the image dump 
file ky the data kase data set recovery utility. 

5. The input file is opened. 

6. Input segments are read sequentially, an 8-byte prefix is added to 
identify the segment, and the logical record (prefix + segment) is 
klocked and written to the output file. 


7. After all segments have been copied (EOF), the input and cutput 
files are closed. 


8. Output statistics for the file are written to SYSLST. 

9. Processing continues from step 1 until there are no more input 
cards, at which time the program terminates. 

Control Blocks - DLZUDMPQ 

e Dunp record prefix 


e Dump header record. 
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Exror Codes and Handling - DLZUDMPO 


All error codes are in the forn of messages to SYSLST and SYSLOG. All 
the messages used by the CB Data Set Image Dump Utility are contained 
in mcdule DLZDMPM0O; a read-only CSECT. 


DLZUCUMO ~- DB CHANGE ACCUMULATION UTILITY 


The data base change accumulation utility module DLZUCUMO is executed 
as a standard DOS/VS application program. DLZUCUMO controls the 
overall operation of the Data Base Change Accumulaticn Utility. 

First, the control card processor module (DLZUCCTO) is called to read 
the input stream. Upon its return, the PROCFLAG switch is tested. If 
records are to be passed to sort, the sort parameter list is 
formatted, including a sort Exit 15 (DLZUC150) and the sort Exit 35 
(DLZUC350). The sort program is then loaded, and this nodule 
(DLZUCUMO) waits for it to terminate. Upon termination, a completion 
code is tested and appropriate messages are rrovided as output. If 
records are not to ke sorted, that is, no DBO type control cards were 
read, the module calls the Exit 15 module (DLZUC150) to create the new 
log file. If error are encountered by any of the four processing 
modules, control is passed to the common error routine DLZUCERO. 


Control Blocks —- DLZUCUMO 


e Data base name table, containing the data base names and the 
address of the date/time table for this entry. 


e Data/time table 
® Accumulation header record 


e Accumulation record 


Normal Entry Point 


The main entry point to this mcdule is DLZUCUMO. DLZERRTN is an entry 
point used by CLZUC150 on any error condition. 


Entry Conditions 


This is the main mcdule which controls the overall operation of the 
Data Base Change Accumulation Utility prcogranr. 


Control information is passed from module to module by means cf an 
externally referenced takle contained in DLZUCUMO. 


DLZUCERO - Conmon Frror Routine 


This module is the common error routine. Control may Le passed to it 
from any of the four processing modules. It addresses a message fron 
the message module (CLZCUMM0), depending on paranmeters passed tec it,. 
and prints a message to the SYSLST and SYSLOG devices. If the passed 
paranreters indicate a multi-part message, it does not write the 
message on the first entry. Instead, it passes the last-used positicn 
in the output buffer cack to the caller to allow the caller to insert 
special data in the messages. On the second entry to this routine, 
the message is written. All messages issued by the DB Change 


3-78 Licensed Material - Property of IBM 


Accumulation Utility are contained in module CLZCUMMO. It is a read- 
only rodule. 


Normal Entry Point 
The only entry to this module is DLZUCERO. 


Entry Conditions 


This module is entered to output all error messages. 


Register Contents on Entry 


R1 contains a message number. R2 is negative if this is a multi-part 
message. (R2 points to last byte of message on second entry of multi- 
part nessage. ) 


Register Contents on Exit 


All registers are restored to entry conditions except R2, which points 
to last byte of message on first entry return of nulti-fart message. 


DLZUCCTO - Control Card Processor 


This nodule is the control card processor. It reads the control card 
input stream, checks the cards for validity, and constructs the data 
kase name table and the date/time table if data base names are 
supplied. It also constructs the log input specification table 
describing the input log file(s). 


Normal Entry Point 
The only entry to this module is DLZUCCTO. 


Entry Conditions 


This wodule is entered to process the control card input stream. 


Register Contents on Exit 


All registers are restored to entry conditions. 


DLZUCi50 - Sort Exit 15 


This nodule is the sort Exit 15 routine. It reads the log input 
records, checks the purge date if applicable, and determines the 
disposition of the record. If the record matches an entry in the data 
kase name table, the date/time table is searched and the apprcpriate 
purge date and time are compared. If the record is befcre the rurge 
date, the program returns to read another record. If the reccrd is 
not purged, the routing is determined from the table and written 
either to sort or to the new log. A table of DMB nanes and purge 
dates is prepared for Exit 35. 
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Normal Entry Point 


This nodule is entered at CDLZUEX15 if no records are to be 
accurulated, and at DLZUCi50 by sort. 


Entry Conditions 


This nodule is entered to read input logs and disperse records to new 
log or sort. R1 contains the address of the parameter list from sort 
or a dummy list if control was received from DLZUCUMO. 


Register Contents on Exit 


All registers are restored. 


DLZUC350 - Sort Exit 35 


This nodule is the sort Exit 35 routine. It receives all records from 
sort. If an old accumulated data set is supplied, a record is read 
from the data set and a record is retrieved from sort. The data base 
name and file identification of the records are compared. All input 
cum records are purge-checked according to the date/tine, if any, 
specified on DBO card(s). If the old cum input is lcw, it is written 
to the new cum data set. If the records are equal, the data frcem the 
sort record is merged to the old cum record, unless purged, and 
another record is oktained from sort. This sequence ccntinues until | 
an unequal condition is detected, at which point the record is written 
to the new cum data set. If the old cum is high, reccrds fren sort 
are comkined and written to the new cum data set until the conpare 
condition changes. This process continues until both the sort and the 
old cum records are exhausted. 


Normal Entry Point 


This rwodule is entered at CLZUEX35 ky sort. 


Register Contents on Entry 


Register 1 contains the address of the sort Exit 35 parameter list. 


Entry Conditions 


This wodule is entered Ly scrt to dispose of all sorted records. 


Register Contents on Exit 


All registers are restcred to entry ccnditions, with the sort 
parameter list updated as needed. 


CLZLCGPO - LCG PRINT UTILITY 


The leg print utility nmcdule (DLZLOGP0) is executed as a standard 
DOS/VS application program and prints the contents of DL/I log files. 
Input log files may ke either tape or disk. Opticnally, the utility 
can create an output log tape suitable as input to the Eackout utility 
wodule (DLZBACKO). Processing of the log print utility is as follows: 
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1. Module CLZLPCCO is called tc process input control statements. 
2. If requested, the output log tape file is opened. 


3. The CLPLZEVCE macro is issued to determine the log device type, and 
the log file is opened. 


4. The log records are read and deblocked, and the reccrd tyres are 
checked to see if valid DL/I record. 


5. The log records are printed to SYSLSTI in either keyword format cr 
dump format. 


6. If requested, log records are written to output log tare. 


7. The input log file is closed. If more input log files were 
specified, processing continues from Step 3. 


8. If requested, the output log file is closed. 


9. Informational statistics are written to SYSLST and the program 
terminates. 


Error Codes and Handling 
All error codes are inthe form of messages written to SYSLST and 


SYSLCG. All the messages used by the log print utility are contained 
in module CDLZLGPMO. 


DIZLFECCO - Log Print Control Statement Processor 


This module is called by CLZLOGPO to read and process input control 
statements. The control statements are read fron SYSIPT and validity 
checking is performed. Valid control statement types are: *LO‘, "LS", 
and ‘II*. Information from the control statements is saved in the log 
print common area. 


Normal Entry Foint 
This module is entered at CLZLPCCO ky DLZLOGPO. 


Register Contents on Entry 


Register 1 points to the lcg frint common area. 
Register 9 points to the next available print line buffer. 


Entry Conditions 


This module is entered by [CLZLOGPO to read and process input control 
statements. 


Register Contents on Exit 


All registers are restcred to entry ccnditions except register 9, 
which is updated to point to the next available print line buffer. 


Error Codes and Handling 
All error codes are in the form of messages written to SYSLST and 


SYSLCG. All the messages used ty the log print utility are contained 
in mcdule DLZLGPMO. 
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DATA EASE REORGANIZATION UTILITIES 


DLZURULO ~- HS DB UNLOAD 


The HISAM reorganization unload module DIL2ZRULO is executed as a 
standard DOS/VS applicaticn program. A control card specifying the 
data base name, data set name, and cutrut symbolic unit name is read. 
The DBD specified is loaded, and a short segment table is constructed. 
This table consists of the first eight bytes of each segment takle 
entry in the DBD. This includes, among other things, the segnent 
physical code and the segment length. The size of the prefix, as 
described for each segment type, is added to the segrent length and 
entered in the table. This length is later used to rove the segnent 
from the input area to the output area. 


Next, the input and output data sets are opened. A header record 
containing information akout the data base data sets is constructed, 
and a statistics record is written. The first KSDS record is then 
read and the root segment is checked to determine whether the deleted 
flag is cn (no prefix if Simple HISAM). If it is on, the total 
segment chain for that root is ignored, and the next rcct is 
processed. If the root is not deleted, it is moved tc the output 
area, and the first dependent segment, if present, is processed. If 
the dependent segment is not deleted, it is moved to the output area, 
and the next segment is processed. This continues until the conrplete 
dependent segment chain for this root, including any cverflow — 
dependent segments on the ESDS, have been processed. If the segnrent 
is deleted, each succeeding segment that is a child of the deleted 
segment is also deleted. The first segment that is not a child cf the 
deleted segment causes the normal segment processing tc be resumed. 
The last record written is a statistics record which includes 
inforraticn needed for audit trail. The output data set now contains 
the reorganized KS[CS and ESDS logical records in physical sequential 
format (cnly KSDS if Simple HISAM cr INDEX). An image of the KSDS 
record ccntaining a root segment and dependent segrent is followed Ly 
images of the ESDS records containing overflow dependent segments fcr 
the root segment. A chain pointer in the KSDS ccntains the ccrrect — 
relative byte address of the next ESDS record containing overflow 
dependent segments. If more than one ES[S record is needed to contain 
overflow dependent segments, they follow in sequence and chain 
pointers are maintained in the records. 


Error message handling is accomplished in the following manner: When 
a routine within mcdule DLZURULO requires an error message to ke 
generated, a number is loaded intc Ri. ‘This numker corresponds to a 
message in the message CSECT (DLZRULMO). The routine then kranches to 
a conmon routine which outputs the message. The number passed in R1 
is multiplied by 4 and added to the start of the message CSECT 
(CLZRULMO). At that cffset, a fullword containing the length of the 
message and the offset to the start of message text is cbtained. 

These values are used to move the message to an output Luffer. 
CLZRULMO is a read-only module containing all error nessages issued Ly 
module DLZURULO. 


Contrel Blocks - DLZURULO 


Shecrt segment takle 
Output data reccrd 
Output header reccrd 
Statistics record. 
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Errcer Codes and Handling - DLZURULO 


All error codes are in the forn cf error messages. 


Sample Description of HISAM Reorganized Format 


Assume a HISAM data base which ccnsists of a single rcot segment and 
dependent segments in the hierarchical format shown in Figure 3-7. 


ROOT SEGMENT 


SEG B SEG C SEG E 


SEG FO 





Figure 3-7. HISAM Data Base with Cne Root Segment 


The input for the HISAM Reorganizaticn Unload Utility appears as shown 
in Figure 3-8. ves 
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KSDS RECORD 


SEG A SEG B SEG C 
ROOT SEGMENT (DELETED) (CHILD OF A) (CHILD OF A) fo 
ESDS RECORD 1 
SEG F 
SEG J 


ESDS RECORD 2 
Figure 3-8. Input for HISAM Reorganization Unload Utility 










Given this input, the HISAM Reorganizaticn Unload Utility provides the 
Output shown in Figure 3-9. 


HEADER RECORD 


INFORMATION ABOUT DATA BASE 


STATISTICS RECORD 


TOTSEG VALUE =0 


DATA RECORD (KSDS) 







> 


ROOT SEGMENT SEG D SEG E SEG G 


DATA RECORD 2 (ESDS) 


ee ee 


UNLOADED STATISTICS RECORD 
TOTSEG = NUMBER OF SEGMENTS UNLOADED FOR SEGMENT LEVEL 


Figure 3-9. HISAM Reorganization Unload Utility Output 


Note: A second ESDS record is unnecessary tecause space occupied 
ky deleted segments is reclaimed. 


CLZURRLO ~ HS DB RELOAD 


The HISAM reorganization reload module CLZURRLO is executed as a 
standard DOS/VS application program and is used to reload a 
reorganized HISAM data base data set group. The input to the prcegran 
consists of a reorganized dump of the key sequenced data set (KSDS) 
and entry sequenced data set (ESDS) created Ly the HISAM 
Reorganization Unicad Utility program. Frocessing is as follows: 


1. A control card, which ccntains the filename of the input file 
ccntaining the HISAM data base to be reloaded, is read. The input 
file is opened and the header record is read. 


2. The cutput KSDS and ESUDS ACES are generated using the infcrnation 
ccntained in the header record and the KSDS and ESDS are opened 
(cnly KSCS if Simple HISAM or INDEX). 


3. The statistics record is read and the statistics takle 
initialized. 
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4. Records are read sequentially from the input file. These records 
are images of KSDS and ESDS records. 


5. KSDS records are written to the output KSDS using VSAM keyed 
sequential (mass) insert. 


6. ESDS logical records are written to the output ESDS using VSAM 
addressed sequential insert. 


7. After all data records have been processed, the last input 
statistics record is read, and a statistics report is printed, 
comparing segments unloaded/reloaded. 


8. The files are closed. 


All error messages issued by the HS [B reload utility are contained in 
module DLZRRLMO. It is a read-only module. 


Contrcl Blocks - DLZURRLO 


°® Header record 
e Input data record 


DLZURGUO - HD DB UNLOAD 


The HD reorganization unlcad module CLZURGUO is executed under control 
of the DL/I system as an application program and is used to unlcad a 
data kase by issuing DL/I calls. One or two files may ke created and 
cutrut may ke to tape or DASD. The module contains two processing 
modes - “normal" and “restart". 


Nornal processing, after module CLZURGUO receives control fron DL/I, 
is as follows: 


1. The PCB address is saved and a GSCD call is issued to obtain the 
PST address. The PST allows the program to access the DL/I 
control blocks needed to construct the prefix porticn of the 
cutput record. This prefix, as described below, is used Ly the HD 
Reorganization Reload Utility. 


2. The number of outputs (one or two) and output device type (tape or 
DASD) are determined. 


3. Storage is oktained for the statistics table. 
4. Each output file is opened. 


5. The statistics takles, which have been initialized for all data 
kase segment types, are written to the output file(s). 


6. A Get Next (GN) call is issued for the first (or succeeding) 
segment. 


7. The statistics takle for the segment type is updated. 

8.\ The segment is comkined with the segment prefix to form an cutput 
lcegical record. The output logical records are blocked and 
written. 

9. Whenever a checkpoint interval is reached (first rect segment 


after 5000 segments have been processed or as specified on CHKPT 
parameter), a checkpoint record is written to the output file. 
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The current statistics are part of the checkpcint record. Tc 
insure the checkpoint record is physically written, a dunny 
checkpoint is also written to output. Additicnally a message 
containing the ID of the checkpoint record is written to SYSLOG. 
10. Processing continues at step 6 until end of file is encountered. 


11. At end of file, the statistics takle totals are written, the 
cutput file(s) is closed, and the program returns control to DL/I. 


Restart processing, after module DLZURGUO receives control frem DL/I, 
is as follows: 


1. Steps 1 - 4 of “normal processing" are performed. 

2. The restart (RESTART) input file is opened. This is either the 
cutputi (HDUNLD1) or output2 (HEUNLD2) file from the previously 
terminated jok execution. 


3. A message is issued to SYSLOG requesting the checkpoint reccrd 
number (ID) at which to restart. The number is validated. 


4. All records, including the requested checkpoint record, of the 
RESTART file are copied to the output file(s). 

5. A Get Unique (GU) call is issued for the checkpointed root segment 
to establish positioning. If the RBA is available for the root 
segment, it is placed in the SSA with an internal "*#T" conmand 
code; otherwise the segment"s key is placed in the SSA and an 
internal "*c" (key retrieve) command code call is issued. The 
statistics takle is initialized with the checkpointed statistics 
record. 


6. Steps 6 - 11 of “normal processing" are performed. 


Control Biocks - DLZURGUO 

e Output record ccntaining segment prefix 
e SSA for GU call ky RBA | 

e SSA for GU call ky key 

e Output table record 


e Checkpoint record. 


Interfaces - DLZURGUO 
This nodule interfaces with DL/I through the DL/I language interface 


mcdule DLZLI000 at entry point ASMTCLI and by fast path interface to 
retrieve. 


Exror Codes and Handling - DLZURGUO 


All errors are indicated by error messages. All messages issued by 
the HD DE unload utility are contained in module DLZRGUMO. It is a 
read-cnly module. 


DLZURGLO - HD DB RELOAD 
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The HD reorganization reload utility (DLZURGLO) is loaded under DL/I 
control as an application program. It reloads a data kase under 
contrcl of CL/I. Input to the module consists of a sequential dump 
data set of logical records created by the HD reorganization unload 
utility (DLZURGUO). A logical record consists of a segnent prefix and 
a segment. 


During the reload, a message is issued each time a checkpoint record 
is encountered (approximately every 5000 segments or as specified by 
user on unload). This message is the same in content and fornat as 
that issued during unload when the checkpoint record was created, and 
identifies the checkpoint Ly number. If the reload facility fails, a 
restart capability called ‘Reload Restart" allows restarting frcem a 
checkpoint record. 


After module CLZURGLO receives control from DL/I initializaticn, 
processing is as follows: 


1. The PCB address is saved, and a GSCD call is issued to obtain the 
FST address. 


2. The input device type is determined and the data set is opened. 

3. If restarting, oktain checkpoint restart number from operator and 
locate checkpoint record. The data kase is then positioned (GU 
call) and the end of data is found (GN calls). 


4. An input record is read (segment), and a DL/I call list is 
constructed. 


5. A DL/I Insert (ASRT) call is issued for the segment. 


6. After all segments have been processed, the last statistics table 
record is read and a comparative statistics report is written. 


7. ‘The input data set is closed, and the program returns contrcl to 
DL/TI. 


Blocks and Takles 


Input reccrd 
Interfaces - CLZURGLO 


This nodule interfaces with the DL/I routines through the DL/I 
language interface module DLZL1I000 at entry rfoint ASMIDLI. 


Error Codes and Handling - DLZURGLO 


All error ccnditions are indicated Ly error messages. All messages 
issued by the HD DE reload utility are contained in nodule DLZRGLMO. 
It is a read-only module. 
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PARTIAL CATA BASE REORGANIZATION UTILITY 


DLZPRCT1 - PART 1 CONTROL 


The Part i Control module initializes the environment for Part 1 then 
cotrols the order of execution for Part 1 processing. 


Initially this module acquires storage for the data kase table (DBT), 
segment table (SGT), action table (ACT), and range table (RGT). The 
ccmmon area (COMAREA) is part of this module and is not dynamically 
acquired. 


Next the Part 1 Control module loads the Part 1 service modules and 
their entry points in COMAREA. 


The final processing Ey this module links the Part 1 action modules to 
the sequence defined Ly the linklist table. As each linked to nodule 
returns, its return code is checked. Part 1 processing ends when the 
return code exceeds the maximum value allowed for that rodule, which 
is an error condition, or Fart 1 successfully completes. In this case 
the return code is zero. 


The highest return code that the Part 1 Control nodule encounters is 
the return code for the Part i Control processing. 


Interface 
This module interfaces with the following modules: 


DLZPRERR - Message writer 
DLZPRWEM - Work file manager 
DLZPRABC - Action table Luild 
DLZPRCLN - Cleanur 

DLZPRDBD - DEEL analysis 
DLZPRPAR - Parameter analysis 
DLZPRPSB - PSB source generator 
DLZPRREP - PART1 report writer 


Contrcel blocks - CLIZPRCT1 
e ACT ~ Acticn table 


e DBT - Data kase table 
e SGT - Segment table 


Normal Entry Point 
The cnly entry point to this module is DLZPRCT1. 


Register Contents of Entry 


Standard register conventions are used for linkage to this module. 


Register Contents on Exit 


All registers are the same as on entry except R15, which contains the 
return code. 
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DLZPRABC - ACTION TABLE BUILD 


This wodule analyzes lcgical relaticnships in the prime and related 
data kases. It Luilds entries in the action table (ACT). The action 
table entries indicate the necessary actions for reorganized segments 
and for segments that are related to reorganized segnents. 


Interface 





This nodule interfaces with the following module: 


DLZPRERR - Message writer 


Control klocks - DLZPRABC 


@e CCMAREA - connon area 


Normal Entry Point 
the only entry point tc this module is DLZPRAEC. 


Register Contents on Entry 


R8 - Addressability fcr ACT 

R9 - Addressakility for CBT 
Ri0O - Addressability for SGT 
Ri1 - Addressability fcr COMAREA 
R1i2 - Pregram base register 

R13 - Save area address 

R1i4 - Return address 

Ri5 - Entry pcint address 


Register Contents cn Exit 


All registers are the sameas on entry except R15, which contains 
the return code. 
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DLZPRCLN - PART 1 CLEANUP 


This module writes the takles created in part one to the 
communicaticn data set for suksequent use in part two. The takles 
are written in the fcllowing order: 


1. Common area 

2. Data kase takle 
3. Segment takle 
4. Range takle 


Contrcl Llocks - CLZPRCLN 


e COMAREA - Ccnirreon area 


Normal Entry Foint 
The only entry point to this mcdule is DLZPRCLN. 


Register contents on Entry 


Standard register conventicns are used for linkage to this module. 


R8 - Communication data set DTF 
R9 - Internal linkage address 
R1i - Conron area 

R12 - Pregram base register 

R13 ~ Save area address 

Ri4 - Return address 

R15 - Entry point address 


Register Contents cn Fxit 


All registers are the same as on entry except R15, which ccntains the 
return code. 
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DLZPRDBD - CBE ANALYSIS 


This module analyzes the DBD that is to be used in data base partial 
reorganization. The ncdule uses the characteristics of the prine and 


any related DEDs to build the data Lase takle (DBT). 


It enters 


information akout data sets in the dataset table3 in COMAREA. 
CLZPREBD uses the characteristics of and relationshirs ketween 


segments in the DBCs to btuild the segment table (SGT). 


Interface 
This nodule interfaces with the following module: 


DLZPRERR - Message writer 


Control kLliocks - DLZPRDBD 


e® CCMAREA - conmnon area 


Normal Entry Foint 
The only entry point to this module is DLZPRIBD. 


Register Contents on Entry 


R2 - Addressability fcr SGT 

R3 - Addressakility for TGT 

R4 - Addressakility for DBT 

R5 - Seccnd base register 

R11 - Addressability fcr COMAREA 
R1i2 - Program kase register 

R13 - Save area address 

R14 - Return address 

R15 - Entry point address 


Register Contents on Exit 


All registers are the same as cn entry except R15, which 


the return code. 


contains 
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DIZPRESB —- PRCGRAM SPECIFICATION BLOCK SOURCE GENERATOR 


This module creates a PSB source deck if the partial reorganization 
input parameter PSB= specifies input tc Part 1. Eecause it is not 
necessary to process all of the segments in the data kLase, a FSB 
source deck specifies only the sensitive segments. The information 
used to create this source deck is taken fron the partial 
reorganization table created in Part 1 Ccntrol. It is the user's 
responsibility to run the PSBGEN and ACRBGEN for this FSB prior to 
Part 2 Processing. 


Interface 
This wodule interfaces with the following modules: 


DLZPRERR - Message writer 
CLZPRWEM - Work file manager 


Normal Entry Point 
The only entry point to this module is DLZPRFESB. 


Register Contents on Entry 


R2 - Addressability for CET 

R6 - Addressability for SGT 

R1i0 - File control Elock 

R11 - Addressability for COMAREA 
R12 - Pregram base register 

R13 ~ Save area address 

R14 - Return address 

R15 - Entry point address 


Register Contents cn Exit 


All registers are the same as on entry except RL5, which contains 
the return code. 
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DLZPRREP - PART 1 REPORT WRITER 


This wodule creates a report based on Part 1 processing for the 
data base that is going to be partially reorganized. The 
infornaticn used to create the report is extracted frcr the range 
takle, data base takle, and the segment table. 


Interface 


This wodule interfaces with the follcwing module: 


DLZPRWFM - Work file manager 


Normal Entry Point 


The only entry point to this mcdule is CDLZPRREP. 


Register Contents on Entry 


R2 
R3 
R8 
R1i0 
R11 
R12 
R13 
R14 
R15 


Addressability for RGT and SGT 
Addressability for DET 

BAL register 

File control bicck 
Addressability for COMAREA 
Program bkase register 

Save area address 

Return address 

Entry point address 


Register Contents on Exit 


All registers are the same as on entry except R15, which contains 
the return code. 


Licensed Material -— Froperty of IEM 


3-93 


DLZPRCT2 


This nodule first loads the service modules. 
commen area and the takles that were Luilt during Part 1 Control 
processing from the DLZPRCOM dataset. 


~ PART 2 CONTROL 


estaklishes linkage to each Part 2 phase. 


Interface 


This module interfaces with the fcllowing modules: 


DLZPRERR 
DLZPRPAR 
DLZPRUPD 
DLZPRSTC 
DLZPRURC 


~ Message writer 

- Parameter analysis 

- Update prefix 

- Sort contrcl 

- Unload/reload control 


Contrcl blocks - DLZPRCT2 





e COMAREA - Conmon area 
e DBT - Data tase takle 


Normal Entry Point 


The only 


entry point to this module is CLZPRCT2. 


Register Contents on Entry 


R10 - File control bicck 

R11 - Addressakility for COMAREA 
Ri2 - Program kase register 

R13 - Save area address 

R14 ~- Return address 

R15 - Entry point address 


Register Contents on Exit 


All registers are the same as on entry except R15, which contains 


the return code. 
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Then it restores the 


Finally, this mrodule 


DLZPREAR - PARAMETER ANALYSIS 


This module analyzes input control statements and generates data in 
the commcn area (COMAREA), segnent takle (SGT), action table (ACT), 


and the range takle (RGT). 


Interface 
This nodule interfaces with the fcllowing modules: 


DLZPRWFM - Work file manager 
DLZPRERR - Message writer 


Control blocks -—- DLZPRPAR 


e DET - Cata btase takle 
e SGT - Segment table 
e ACT - Action takle 


Normal Entry Point 
The only entry point to this mcdule is DLZPRPAR. 


Register Contents on Entry 


Ri - Parameters 

Rii Addressakility for COMAREA 
R12 - Program tase register 

R1i3 Save area address 

R14 - Return address 

R15 Entry point address 


Register Contents on Exit 


All registers are the same as on entry except R15, which contains 


the return code. 
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DLZPRSCC - SCAN CONTROL 


This module scans segments of a data base as indicated in the data 
base table and action takle in crder to produce K reccrds for SORT1 
and T records for SORT3. K reccrd types represent segments with 
unidirectional pointers to segments which may have moved during 
reorganization. T record types represent segments in secondary 
index data tases with non-unique key values from the source segment. 
T reccrds are provided with a relative record number kased on the 
number of times the key of the index value is duplicated. 


Interface 


This nodule interfaces with the fcllowing modules: 


ASMTDLI DL/I interface 
CLZPRERR - Message writer 
DLZPRCILI DL/I service 
DLZPRWFM Work file manager 


Normal Entry Foint 
The only entry point to this mcdule is DLZPRSCC. 


Register Contents on Entry 


R11 - Addressability for COMAREA 
R13 - Save area address 

R14 Return address 

Ri5 Entry point address 


Register Contents on Exit 


All registers are the same as on entry except R15, which contains 
the return code. 


3-96 Licensed Material - Property of IBM 


DLZPRUPD - UPDATE PREFIX 





This module adds, deletes, and updates segments and indexes 
according to the input data work records and index work records 
from workfile 3 and workfile 5, respectively. This module 
processes each data base in physical order until all changes are 
complete. 


Interface 


This nodule interfaces with the fcllowing modules: 


ASMTDLI - DL/I interface 
DLZPRERR - Message writer 
DLZPRLILI - DL/I service 
DLZPRWFM - Work file manager 


DLZPRSTW - Statistical writer 


Normal Entry Point 
The only entry point to this module is DLZPRUPD. 


Register Contents on Entry 


R11 ~ Addressability for COMAREA 
R13 —- Save area address 

R1i4 — Return address 

R15 - Entry point address 


Register Contents cn Exit 


All registers are the same as on entry except Ri5, which contains 
the return code. 
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DLZPRSTC — SORT CONTROL 


This module contains four routines, SORT1 through SORT4. These 
routines arrange data work records for prefix update (DLZPRUPD). 
Each routine invokes DOS/VS sort passing parameters which includes 
the addresses of sort exits 15 and 35. The sort exits perform the 
processing required by SORTi, SORT2, SORT3, and SORT4.. 


SORT1 and SORT2 process data werk records exclusively. The input 
to SCRT1 is from RELOAD and SCAN. The input to SORT2 is fror 
RELOAD and SORT1i. Together these routines save the new relative 
kyte address (RBA) of the segment moved in the associated work 
records and arranges them in physical sequence as they exist in the 
data bases. 


SORT3 and SORT4 process index work records exclusively. The input 
to SORT3 is from RELOAD and SCAN. The input to SORT4 is from the 
DL/I index maintenance file and SORT3. Together these routines 
eliminate index work records that are not involved in update, 
convert the DL/I index maintenance records into partial 
reorganization format, and arrange the index work records in 
physical sequence. 


Interface 


This nodule interfaces with the following modules: 


DLZPRERR - Message writer 
DLZPRWFM —- work file manager 


Normal Entry Point 
The only entry point to this module is DLZPRSTC. 


Register Contents on Entry 


Ril - Addressability for CCMAREA 
R13 - Save area address 

R14 - Return address 

R1i5 - Entry point address 


Register Contents cn Fxit 


All registers are the same as on entry except R15, which contains 
the return code. 
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DLZPRURC - UNLOAC/RELCAD, CONTROL 


This nodule perforns the unload and reload of segments within user 
specified ranges. TCLZPRURC frees the spaces previously occupied by 
the unload segments. It then inserts the segments into the user 
specified target area. The inserted segment's prefix carries 
forward the logical pointers, counters, and delete byte. 


As physical changes occur in the data kase during the frocess, this 
wredule records them on the data base log data set. LCLZFRURC 
gathers unload and reload statistics for reports during the 
processing. Finally, it creates work records for update depending 
on actions defined in the action takle for reload. 


Interface 


This nodule interfaces with the following modules: 


ASMTDLI - DL/I interface 
DLZPRWFM - Work file manager 
DLZPRERR ~— Message writer 
DLZFRDLI - DL/I service 


Control Llocks - CLZPRURC 


CCMAREA - Connon area 
FCB - File control Llock 
DBT - Data kLase takle 
SGT - Segment table 

ACT - Action tackle 

RGT - Range table 


Normal Entry Point 
The only entry point to this module is DLZFPRURC. 


Register Contents on Entry 


R13 - Save area address 
R14 - Return address 
Ri5 - Entry point address 


Register Ccntents on Exit 


All registers are the same as on entry except R15, which ccntains 
the return code. 
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DLZPRWFM - WORK FILE MANAGER 


This module provides cren, close, input, and output operations for 
VSAM and SAM files used in data base partial reorganization. 


Interface 
This wodule interfaces with the following modules: 


ASMTDLI - CL/I interface 
DLZPRERR - Message writer 


Control blocks ~ DLZPRWFM 


® COMAREA - Common area 
® FCB - File contrcl block 


Normal Entry Point 
The cnly entry point to this module is DIZPRWFM. 


Register Contents on Entry 


R6 - Addressability for XWR 

R8 - Addressakility for FILECB 
Addressakility for DWR 
R10 - Addressability fcr DBECB 
R11 - Addressability fcr COMAREA 
R12 - Program kase register 

R13 - Save area address 

R14 - Return address 

Ri5 - Entry point address 


bd 
wo 
t 


Register Contents on Exit 


All registers are the same as on entry except R15, which contains 


the return code. 
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DIZPRDLI - CL/I SERVICES 


This module is the interface with DL/I DCS/VS when the functicn 
required cannot be acccmplished ky any of the calls documented in the 
DL/I DOS/VS reference nanuals. Examples of such functions are: 


e Retrieval of information from DL/I DOS/VS -locks 
e Direct interface with the DL/I DOS/VS buffer handler 
e Direct request tc lcg changed prefix data 


To make use of this ncdule, the caller must: 


1. Complete any pre-requisite for the service needed 
2. Set the code for the service needed in COMCIREQ 
3. Enter this module Ly a EALR 14,15 


Interface 


This nodule interfaces with the following modules: 


DLZDBHOO - Buffer handler 
DLZPRERR - Message writer 
CDLZFRSPO - Space nanagement 
DLZRDELO - Lata base lcgger 


Contrel ;Llocks - DLZPRDLI 
COMAREA - Common area 


DBT - Data kase table 
SGT - Segment table 
ACT - Action takle 
RGT - Range takle 


Normal Entry Point 


FCB - File control Llock 


The only entry point to this module is DLZPRDLI. 


Register Contents on Entry 


R3 - Addressability fcr CLIR, CMBDACS 


R5 - Addressakility for JCE 
R6 - SGI, SCD, LEV, SDB, PSDB 
R7 - DBT, DMB 


R8 - Data kase PCB 
RO - PST 


R11 - Addressability fcr COMAREA 


Ri2 - Pregram base register 
R13 - Save area address 

R14 - Return address 

R1i5 - Entry point address 


Register Contents cn Exit 


All registers are the same as on entry except R15, which contains 


the return code. 
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DLZPRSTW - STATISTICAL WRITER 
This wodule is used tc produce statistical reports for 
RELOAD, and SCAN in Part 2 Control. 


The report created for UNLOAD consists of range unload 
block range statistics, and block changes by data base 


The report created for RELCAD consists of range reload 
block range statistics. 


UNLOAD , 


statistics, 
record. 


statistics and 


The report created for SCAN consists cf a scanned segment count for 


each affected data base reccrd. 


Interface 
This nodule interfaces with the following rodules: 


DLZPRERR - Message writer 
CLZERWEM - Work file manager 


Control LbLlocks - DLZPRSTIW 


ACT - Action table 
DBT CTata base takle 
SGT ~ Segment table 
RGT - Range table 
COMAREA ~- Common area 


Normal Entry Point 
The cnly entry point to this module is DLZPRSTW. 


Register Contents on Entry 


Ril - Parameters, File control base register 
R6 - Print line base register 

R7 - Addressability for ACT, RGT 
R8 - Addressakility for SGT 

R9 - Addressability for DBT 

R10 - Program base register 

Rii - Addressakility for COMAREA 
R12 - Prcgram tase register 

R13 - Save area address 

R14 - Return address 

R15 - Entry point address 


Register Contents on Exit 


All registers are the same as on entry except R15, which contains 


the return code. 
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CLZPRERR ~- ERROR MESSAGES 


This nodule formats and sends nessages to SYSLST. 

Based on the message number passed to this module by the caller, the 
text of the message is retrieved from the message table located in 
this module. If the message has a variakle data field, the variable 
data passed by the caller is inserted in the message text. 

If an invalid message number is passed by the caller, the message 
number is printed with text that indicates it is an invalid message 
number. 

Contrcl Llocks - CLZFERERR 


e COMAREA - Conmon area 
® FCB - File control kLlock 


Normal Entry Point 
The only entry point to this ncdule is DLZPRERR. 


Register Contents on Entry 


Rl - Parameters 

R3 - Addressability for SYSPRINT DCB 

R5 - FCE File control klock base register 
R8 - Message table base register 

R9 - Message buffer Lase register 


Ri1 - Addressakility for COMAREA 
R1i2 - Prcegram tase register 

R13 - Save area address 

Ri4 - Return address 

R1i5 - Entry point address 


Register Contents on Exit 


All registers are the same as on entry except R15, which contains the 
return code. 
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HIGH LEVEL FPRCGRAM INIERFACE 


DLZEIFBO - CL/I Batch/MPS EXEC Interface 


This module can ke logically divided into two parts: an initializaticn 
routine with the entry point of DLZEIPI and a non-INIT call handling 
routine starting at lakel CLZEIPO. 


All CICS/VS application programs which issue SL/I HLPI statements 
execute a translator-generated DL/I HLPI INIT call on entry tc that 
program. This INIT call results in passing control to entry foint 
DILZEIFI. 


The CICS EXEC Interface Progran, CFHEIP calls DLZEIPI, which first 
checks to see if this is a DL/I HLPI INIT call. If not, it passes 
control to the call handling routine, DLZEIPO. Initialization 
continues with the checking of TCA to see if storage fcr UIB/SDIB has 
been obtained. If not, DLZEIPO issues CICS GETMAIN to acquire storage 
for these control Elocks. If storage was already acquired, DLZEIPI 
checks the integrity of SCIE. Following acquisition of storage for 
UIB and SDIE, UCLZEIFI returns control to the caller. 


On entry, CLZEIPC determines if the call is a data base call. If so, 
it determines which FCB in the PCB list to use. It also checks the 
Eclicwing: 


e If data transfer is to take place 
e If segment name has been specified 
e If the call is a replace call with a previous get path call 


CLZEIFO then does the following: 


e Acquires storage for SSA 

e Establishes the correct conmand code 

e Builds field qualifications 

e Sets up the correct SSA for use Ly the DIL/I Progran Request 


Handler, DLZPRHOO 
After DLZEIPO finishes building SSA, it calculates the required I/0 
area size and builds a common I/O area for path calls. DLZEIPO passes 
control to CLZFRHOO. 
DLZEIFO also processes scheduling calls, termination calls, and 
checkpoint calis. 
Interface 
This nodule interfaces with the fcllowing modules: 
DLZBNUCO - Batch Nucleus 


DLZRRCOO —- Batch Initialization 
DLZMPIOO - MPS Batch 


Control klocks - CLZEIPBO 
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DIE - User DL/I interface bicck 
SDIB - System DL/I interface 

EIPL - EIP parameter list 

HLPI - HLPI parameter list address 
ARGO - ARGO parameter list 

PATH ~ Path header contrcl bicck 


Normal Entry Foint 
The cnly entry point to this module is DIZEIFI. 


Register Contents on Entry 


Ri - HLPI parameter list address 
R2 - System DIB address 

R3 - ARGO parameter list address 
R6 - EIP parameter list address 
R8 - User DIB address 

R11 - Base register 

R13 - Save area address 
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DLZEIFB1 - BATCH/MPS EXEC INTERFACE PROGRAM 


This module handles all DL/I HIPI calls except the HLPI EXEC 
translator generated INIT call. It performs the same functions as 
routine DLZEIPO in CLZEIPOO. 


DLZEIFB1 passes control to DL/I Program Request Handler (DLZPRHBO) for 
katch of (CLZMPRH) for MPS. 


There are differences between CLZEIPB1 and DLZEIPO because of the 
different environments. First, DLZEIPB1 makes use of COS/VS stcrage 
contrcl GETVIS or FREEVIS instead of CICS/VS storage control. 
Secondly, CLZEIPB1 uses its own data structure DLZEIPL instead cf 
CIcS/VS TCA fields for oktaining the PCB address list. 


Interface 
This module interfaces with the following modules: 


DLZBNUCO - Batch Nucleus 
DLZRRCOO - Batch Initialization 
DLZMPIOO —- MPS Batch 


Control Elocks - DLZEIPBO 


DIE User DL/I interface block 
SDIP - System DL/I interface Llock 
EIFL - EIP parameter list 

ARGO - ARGO parameter list 

HLPI ~ HLPI parameter list address 
PATH - PATH header control bicck 
SSAF - PATH SSA appendage 


Normal Entry Foint 
The only entry point to this nodule is DLZEIPO. 


Register Contents on Entry 


R1l - HLFI parameter list address 
R2 - System DIB address 

R3 - ARGO parameter list address 
R6 -—- EIP parameter list address 


R13 - Register save area address 
R14 Caller*s return address 
R15 Entry point address 
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DLZEIPOO - DL/I ONLINE EXEC INTERFACE 


DLZEIPBO is the online interface routine that connects the user 
application program tc the online program request handler. It 
performs the combined function of its Latch environment counterpart 
DLZEIFBO and DLZEIFR1. DLZEIPOO builds data base calls to online 
program request handler according to the HLPI command syntax. 


Interface 
This nodule interfaces with the fcllowing module: 


DLZCDF - Online nucleus 


Contrel blocks - DLZEIPOO 


DIB - User DL/I interface block 
SDIB - System DL/I interface block 
EIPL - EIP parameter list 

ARGO - ARGO parameter list 

HLPI - HLPI parameter list address 
PATH - PATH header control block 
SSAP - PATH SSA appendage 


Normal Entry Point 
The cnly entry point to this module is DLZEIP1 


Register Contents cn Entry 
R1 - HLPI parameter list address 


R7 - CICS CSA address 
R13 - Register save area address 
R14 - Caller'ts return address 


Ri5 - Entry point address 
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APPLICATION CONTROL BLOCKS CREATION AND MAINTENANCE 





DLZUACBO - ACE CREATION AND MAINTENANCE 


The application control blocks creation and mraintenance utility 

creates the internal contrcol blocks required Ly the 

DL/I application program. 

Using the PSB and CEUs as input, 

this utility creates DL/I internal format control blccks as outfut. 

These output control Llocks must be link edited into the DOS/VS Core Image 
Library, either private or system, as specified by the user. 

These blocks contain information about the data bases 

and the frograms which use them. 

They describe some device and media characteristics, the stored data 

structures, and the logical data structures as seen by both the system and application 
The program accepts control card input to determine what functions are required. 


The logic flow is as follows: The control card input stream is processed and 
each card is syntax-checked. A sorted list of requested blocks is ruilt in wain storage 
Each PSB name specified on the control card is inserted into the list. 


Each name on the constructed build list is then passed to the application contrcel [rlcck 
have blocks constructed. 

Addresses are relccated relative to zero 

and the completed kLlocks are written to a SYSPCH or SYSLNK data set. 


Blocks and Takles - DLZUACBO 
Frogran ccntrol parameter block 
PST 
SCD 
PDIR 
Interfaces - DLZUACBO 
This nodule interfaces with the following modules: 
DLZUSCHO - Called to create and search sorted PSB lists 


DLZLBLMO ~ Called to format prebuilt messages 
DLZDLELO - Called to build and outfut control Elocks for a PSB 


Register Contents 


RO-R1 = PARM registers 

R2-R8 = Work registers 

R9 = Pointer to PST 

R10-R11 = Work registers 

R13 = Pointer to save area and primary base register 
R14-R15 = Operating systen linkage registers 


DLZUSCHO ~ ACE MAINTENANCE BINARY SEARCH/INSERT | 


The function of module DLZUSCHO is to create and search sorted lists 
in dynamic (GETVIS) storage using the kinary search technique. Any 
number of lists may be created simultaneously (subject only to the 
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limit of available storage). A list entry may be any length frcem 1 to 
256 kbytes. The key or sequence field may also be fron 1 to 256 kLytes 
in length and may ke located anywhere in the list entry. The only 
restriction on keys is that they must consist of a single contiguous 
string of bytes within the list entry. 


The number cf entries in any list is limited only by available 
storage. However, since this routine physically roves data in storage 
to make room for new entries, it becomes less efficient as the numter 
of entries increases. For large numbers of items, it might ke kest to 
consider sorting the entries in the conventional fashicn. 


This module is called by DLZUACBO to kuild and maintain the list of 
PSBs to ke processed. 


Operation 


I. The following interface is used to initiate a new list: 


L 15,=V(DLZUSCHO) 
LA 1,PARMS 
PALR 14,15 


where PARMS is a 3-word list whose contents 
are as follcws: 


Wcerd 1 = length of the list entry 

Word 2 = offset from the beginning of the list 
entry to the key/sequence field 
length of the key/sequence field 


Werd 3 


On return, register 1 contains the location of the new 
list control block. (This location rust be suknitted 
to the search routine on all subsequent search or 
insert calls for this list.) 


Ii. The following interface is used to insert an entry into 
a list: 


L 15,=V(INSRCH) 
LA 1,INFARMS 
BALR 14,15 


where INPARMS is the location of a two-word 
list whose contents are: 


address of the list control block 
address of the list entry to he 
inserted 


Word 1 
Word 2 


On return from INSRCH, register 15 contains zero if 
the entry was successfully inserted, and register 1 
contains the location at which the insert was made. 


If the entry was not inserted (because a duplicate was 
found), register 15 contains 8, and register 1 
contains the location of the duplicate q@mtry. 


Til. The following interface is used to locate an entry in 
a list created by INSRCH: 


L 15,=V(LOCSRCH) 


LA 1,LOCPARMS 
BALR 14,15 
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where LOCFARMS is the location of a twce-word list 
whose contents are: 


Wcrd i = address cf the list control block 
Word 2 = address of the search argunent (key) 


On return from LOCSRCH, register 15 contains zero if 
an entry containing the search argurent in its key 
field was fcund, and register 1 contains the location 
of this entry. 


If no entry was found, Register 15 contains 4 and 
register 1 remains as it was on entry tc LOCSRCH. 


IV. The following interface is used to delete all storage 
oktained by OPENSRCH and INSRCH for a given list: 


L 15,=V(CLOSESCH) 
L 1,LOCPARMS 
BALR 14,15 


where LOCPARMS contains the location cf the list 
control klock for the list to be deleted. 


Control Blocks - DLZUSCHO 
e List ccntrel blicck 


e Sorted list kLlock. 


Programming Note 


If sone number of entries have been placed in a list through repeated 
calls to INSRCH, they can be retrieved in sorted order ky locating the 
first block Ly way of CHAINLOC and all subsequent blocks by way of 
their CHAIN fields. The entries are in order (low to high logical 
sequence) with the lowest entry in Lklock i entry 1, next in block 1 
entry 2, etc., with the highest entry located in the last-used slot in 
the last Llock. 


DLZLBIMO - ACB Generation Error Message Handler 


This wodule is used tc contain, select, and format error messages for 
the ACB generation facility. Given a message number in register one, 
the module will select the matching message and format it Ly inserting 
an arkitrary number of additional character strings addressed hy 
specified registers. The ‘PRTMSG' routine in module CLZUACBO is 
called to print the nessage. Ccntrol is returned to the caller. 


Register Contents on Entry - DLZLBLMO 


R1 ~ Message number 
R13 - Save area 

R14 + Return address 
R15 Entry point 


' 
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Additionally, any registers are passed that have been defined to 
contain fointers to character strings to be inserted into the message. 
These are generally (rut not always) registers 5, 6, and 7. 


Fxternal Routines Called - DLZLBLMO 


PRIMSG ~- Entry point to the print rcutine in module DLZUACBO. 


DLZDLBLO, DLZDLEL1, DIZDLEL2, DLZCDLEL3 - ACB BUILDER 


These four modules are jointly responsible for building all the 
control blocks for a given PSB and its associated DELs, and for 
outputting them to either SYSPCH or SYSLNK in a format that allows 
LINKing them into the DOS/VS core image library. 


The first module, DLZDLBLO, loads the specified PSB and builds the 
PCBs and SDBs for segments identified via SENSEG statements at PSBGEN 
time. It then passes control to module DLZDIBL1. 


Module DLZCLBL1 loads the CEDs for all referenced data kases and 
builds the associated DMBs (for all but logical DEDs). It then 
processes the SDBs associated with each CBL, copying any required 
information from the physical definitions and building any required 
generated SDBs. Control is given to module CLZDLEL2 when all DEDs 
have been processed. 


Module DLZDLBL2 finishes the processing of the SCDBs. It acquires and 
kuilds the intent list, including propagation of intent, and 
initializes any field level sensitivity control blocks required. The 
PCB is moved to its proper location and the JCB, level table, and DSGs 
are kuilt. Control is passed to module CLZDLIBL3. 


The last module, DIZCDLEL3, ktuilds the index maintenance PCB if one is 
required, performs some additional clean-up, and packages and cutputs 
the DMBs and the PSB to either SYSLNK or SYSPCH. If a utility PSB is 


required, module DLIZDFSRO is called to build it, and ncdule DLZDLBLO 
is re-calied at entry FSBPASS to initialize it. 


Interfaces - CLZDIBLO - DLIZCLBL3 


These modules interface with the following mcdules: 


CLZDPSBO - Called to build a utility PSB 
CLZLBLMO = Called to format and write errcer message 


Register Contents cn Entry 


R1 - PST address 

R13 - Save area address 
R14 - Return address 

Ri5 - Entry point address 


Register Contents on Exit 


All registers are restcred. The return ccde appears in PSTERCOD of 
the PST. 
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PSTERCOD = 0 Valid return 
PSTERCOD # 0 Errors encountered 


DLZDPSBO - UTILITY PSB BUILDER 


This module is called ky the applicaticn control kLlocks builder module 
(DLZDLBLO) to dynamically construct a special utility PSB from a © 
specific DBL. The created PSB is in FSBGEN format. A GETVIS is 
issued tc oktain storage necessary to create the PSB. The created PSB 
is sensitive to all segments for the data base. : 


Register Content on Entry 


Ri - Address of rfarareter list 
R13 - Save area address 
R14 - Return address of DLZDLBLO 


R15 


t 


Entry point 
The parameter list consists of a DBD address and a PSB address. 


Registers on Exit 


All registers are restored except R15 which contains a return code 
passed tc DLZCLIELO. 


R15 = 0 Valid return 
Ri5 # 0 Errors encountered 
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CATA BASE LOGICAL RELATIONSHIP UTILITIES 


DLZURERO - PREREORGANIZATION 


The purpcse of this module is to examine input control cards rrovided 
by the user, and, based uron the information contained in DL/I control 
klocks, to generate a control data set for use by other programs 
concerned with the resolution of logical and index relationships. 


The input control cards for this program indicate the names of data 
bases that a user wishes to initially load or to reorganize. The 
control klocks for each segment of each data base listed on an input 
control card are examined. For each logical relationship in which a 
segment participates, a prefix resclution check is performed. This 
check consists of generating a bit map reflecting the prefix fields 
involved in the logical relationship, and then checking the bit rap 
against a table that indicates the fields which must ke resolved for 
the types of data bases in which the logical parent and the lcgical 
child reside. For purposes of the prefix resolution check, the type 
of data tase is considered to mean an initially loaded data base, a 
reorganized data Lase, or another data base (not reorganized or 
loaded, but logically related to a data base that is reorganized or 
loaded). If the bit map and the table entry match yields a ncnzero 
value, prefix fields must ke resolved in either or both the logical 
parent and logical child. 


If prefix fields must ke resolved, a control list entry is built for 
the lcgical parent and/or the logical child. This control list entry 
indicates the fields to be resolved, the work data set record fcrmat 
opticns to use, etc. As control data set list entries are built, each 
record is calculated to determine a maximum record length. The 
largest size is saved and put into field LESRTSZE when the control 
data set is written. The prefix resolution utility (CLZURG10) reads 
this value and passes it tc SORT. 


After generating the control list, the data rases to ke scanned, 

loaded, or reorganized are listed. The scan list is runched if 

requested. The control list is then written to the control data set. 

Centrol Blocks - DLZURPRO 

e control file consisting cf cne or more records, each with a pointer 
to the next block of control file and an area containing one or 
more control list entries. 


e List entry. 


e Secondary list entry. 


Interfaces - DLZURPRO 

The interface with the reorganizaticn message module (DLZURGMO) is 
through the tables provided in that module. See the description of 
that module for takle format. 


The interface with katch initialization to load the required kliccks 
dynamically is accomplished with the DLZRLKLD macro. 
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Error Codes and Handling - DLZURPRO 


This program audits all input control cards and verifies the 
consistency of DL/I control blocks. Any errors encountered cause one 
or were messages to ke generated. Refer to DL/I DOS/VS Messages and 
Codes for details. 


DLZURGSO - CB SCAN 


This module searches cne or more data tases for all segments that are 
involved in logical relationships. For each such segment, DLZURGSO 
generates one or more output records, depending upon the relaticnships 
in which that segment is involved. The output work data set cf this. 
program serves as one of the inputs to the prefix resclution utility. 


This program scans data bases as indicated either by scan control 
cards or by the control data set generated by the prereorgani zation 
program. If scan control cards are present, they are checked for 
consistency with the CDL/I control blocks. Data base scanning is done 
by segment type for HCAM and HICAM data bases. If scan contrcl cards 
are provided for segments in an HLAM or a HIDAM data base, work data 
set records are generated only for those segments listed on scan 
contrel cards. 


After the segments are read into core, control is passed to the work 
data set generator module (DLZDSEHO). DLZDSEHO generates any 
necessary output work data set records based upon infornation 
contained in the control data set. It then returns control tc this 
program (DLZURGSO). 


Interfaces ~ DLZURGSO 


Module DLZURGSO interfaces with the reorganization message module 
(DLZURGMO) through the tables provided in that module. See the 
description of that module for table format. 


The interface with the work data set generator module (DLZDSEHO) is as 
described in the documentation for that module. 


The interface with the buffer handler module (DLZDBHOO) is as 
described in the documentation for that module. The buffer handler 
module is used to directly access records in a data base. 


The interface with batch initialization to load the required blocks 
needed for processing is accomplished with the DLZBLKLD macro. 


Error Codes and Handling - DLZURGSO 


This program audits all input control cards and verifies the 
consistency of DL/I control blocks with the control data set. Any 
errors encountered cause one or more messages to be generated. Refer 
to DL/I DOS/VS Messages and Codes. 
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ABENDs - DLZURGSO 


If an input card is read with "ABEND" in columns 1-5, a dump (PDUMP) 
will be taken if an error condition is detected. This should always 
be done on a rerun of this utility if an APAR is to be submitted 
kecause of an error return code. 


DLZDSEHO - WORKFILE GENERATOR 


This module generates the work file records that are required to 
resolve logical and/or index relationships after one or more data 
bases have keen initially loaded or reorganized. This progran is used 
ky the HD reload (DLZURGLO) and scan (SLZURGSO) utility programs 
provided by DL/I DOS/VS. It is also called automatically ky internal 
DL/I modules (DLZDCLEO and DLZDXMTO) when a data base is initially 
loaded by a user-written program. 


The general operation of this program consists of creating one or more 
work file. records for each segment that is initially loaded, reloaded, 
or scanned, if that segment is involved in at least one logical or 
index relationship. The work file records reflect the new location of 
each segment and, if the data base is being reloaded, its old 
location. Each work file record also contains related information 
that indicates the data bases and segments involved in the logical or 
index relationship described by the record, their old pcinter values, 
etc. 


This program generates all work file records that are used as input by 
the data base prefix resolution module (DLZURG10). The format of each 
output record generated by this program (DLZDSEHO) is as described for 
input of the data base prefix resolution module (DLZURGi0). 


This module contains a CSECT which is also used by scan (DLZURGSO) and 
index maintenance (DLZDXMTO) to open the work file DTF. Within this 
routine is a subroutine (FINDDTF) which is also used by scan to 
determine the correct DTF (disk or tape) to use for a given file 
depending on the assignment for it. 


DLZDSEHO is loaded by batch initialization when the PROCOPT is ‘load’ 
or when HD reload or scan are to be executed. The primary entry point 
address is found in SCDDSEHO. The DL/I termination routine will close 
the work data set. 


Interfaces - DLZDSEHO 
The first seven fullwords of the CSECT contain information to be used 
by the modules which interface with DLZDSEHO. These words concern the 


work data set and entry points or addresses needed by scan (DLZURGSO). 


Displ. from 
Entry Point 


CLZDSEHO Contents 
-28 Base address of this module 
~24 Address of LPLCSV - information needed by scan 
- 20 Address of TEST - entry point when called by scan 
-16 Address of FINDDTF —- a sukroutine used by Sean 
-12 Address of OPENWORK - entry point of routine 


to open WORKFIL file 
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-8 Address of work area available to build output 
record 


-4 Address of opened work file DTF. 
If this field is zero, the file is not open. 


e When invoked during initial data base load or during data kase 
reorganization, the following interface is used: 


Entry Point 
DLZBEGIN (Address found in SCCCSEHO) 


Register Contents 


RL = PST 

R13 - Save area 

R14 - Return address 

RiS - Entry point address 


Control Elocks 


JCBPRESF - Operation type (FUNCASRT or FUNCISRT) 
PSTWRK1 - SDB address 
Exit 


Return to calling program with a return code in register 15. The 
values are: 


0 (X"0') = Successful completion 
G (X"4") = WORKFIL could not be opened (IGN was specified). 
This is not an error condition if the user does 
not wish to create a work file. 
8 (x"8") = Sort field size exceeded 
12 (X'c") = GETVIS error occurred 
16 (X'10') = Invalid DL/I control blocks 
20 (X*'14") = Length of PCB key feedback area is zero 
24 (X'18*) = I/O error occurred on WORKFIL or CONTROL data set. 
28 (X*1C"') = CONTROL or WORKFIL data set could not be opened 


(invalid or unassigned device) 


e When the OPENWORK routine is called by scan (DLZURGSO) or index 
maintenance (DLZDXMT0), the following interface is used: 


Entry Point 
OPENWORK 


Register Contents 


Ri3 - Caller's save area address 
R14 - Return address 
R15 - Entry point address. 


3-116 Licensed Material - Property of IBM 


Exit - 

All registers are restored to entry condition. Return is made to the 
address in R14 plus the displacement 0 if an unknown or invalid device 
is specified or 4 if WORKFIL is successfully opened. 


e When invoked during a data base scan, the following interface is 
used: ’ 


Entry Point 
TEST 


Register Contents 


R3 - Location for prefix parameter list area for segment just read 
R5 - Secondary list entry 

R6 = PSDB 

R7 - SDB 

RI = PCB 

R10 - PST 

R11 - Location of DTF for work data set (must be open) 

R12 - Base address for DLZDSEHO 

R13 - Save area for use by DLZDSEHO 

Ri5 - Entry point TEST 


Control Blocks 

PSTWRK1 Byte 0 - Operation type (FUNCIHPS) 
Byte 1-3 - SDB address 

Exit 


Return to calling program with return code in register 15 as for entry 
point DLZBEGIN. 


e When the FINDDTF routine is invoked by scan, the following 
interface is used: 


Entry Point 


FINDDTF 


Register Contents 


RO = System logical unit number in hex 

R2 - Address of disk DTF 

R3 ~ Address of tape DTF (or 0, if not an option) 
R13 - Caller‘'s save area address 

R14 - Return address 

R15 - Entry point of FINDDTF 
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Exit 
Register 15 - address of chosen DTF 


All other registers are restored to entry conditions. Return is made 
to the address in R14 plus the displacement 0 if an unknown or invalid 
device specified or 4 if successful completion. When error return tc 
R14+0 is made, R15 is zero if IGN was specified, or nonzero otherwise. 


DLZURG10 - PREFIX RESOLUTION 


This module accumulates the information generated on work data sets 
during the load and/or reorganization of one or more data bases. It 
produces an output data set that contains the prefix information 
needed to complete the logical and/or index relationships defined for 
the data base (s). 


Operation of this program centers around at least one and possibly 
two, phases of the DOS Sort/Merge program execution. In the first 
phase, the Sort/Merge program is attached by this program. All work 
data set records generated during data base initial load, 
reorganization, or scan are input to the sort program. All input 
records are sorted such that all work data set records associated with 
a given occurrence of a logical parent follow the work data set record 
describing that logical parent. On exit from the first phase sort, 
this program has available the information needed to resolve the 
logical parent pointers that reside in logical children, the counter 
field and logical child pointers in the logical parent, and the 
logical twin pointers in the logical child (if a sequence field is 
carried in the work data set record). Any unnecessary records are 
dropped before entering the second sort phase. The second phase of 
this program is not executed if only index relationshirs need to be 
resolved. 


In the second phase of this program, the Sort/Merge program is again 
attached. In this sort execution, the output records from phase one 
are sorted according to data base name and physical location within 
data base of each segment that must be updated by the prefix update 
program. On exit from the second phase sort, any remaining logical 
twin pointers are resolved, and further accumulation of logical parent 
counter fields is performed. Any records not actually necessary to 
update a data base are dropped at this time. 


This program uses the control data set generated by the 
prereorganization program to govern its general operation. That is, 
the lists in the control data set indicate prefix fields to be 
resolved, etc. The pre-reorganization utility also calculates the 
maximum record length for SORT records and stores the size in the 
control data set (LESRTSZE). The prefix resolution utility reads this 
value and passes it to SORT. 


Control Blocks - DLZURG10 
e Input work file record - DLZURWF1 


e Output work file record - DLZURWF3 
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Error Codes and Handling - DLZURG10 


This program audits all input work data set records for consistency 
and for correspondence with the control list provided with the control 
data set. Any errors enccuntered cause one or more messages to be 
generated. Refer to the DL/I DOS/VS Messages and Codes 


DLZURGPO - PREFIX UPDATE 


This module reads the input work data set provided by the data base 
prefix resolution module, reads the data base segment indicated by 
each record of the input work data set, and applies the prefix changes 
indicated ky the work data set record to the segment read into main 
storage. 


The input work data set is sorted in data base and segment physical 
location order by the data base prefix resolution module (LCFSURG10) tc 
afford most efficient update of each data base by this module. The 
format of each input record read by this program is as described for 
output of the data base prefix resolution module. 


One or more input work data set records may be present for each 
segment that participates in logical or index relationships. The 
records are successively applied to the prefix of each segment 
affected, and the updated segment is written to its storage device. 
The prefix fields updated by this program include the logical farent, 
logical twin, and logical child pointer fields, and the counter fields 
associated with logical parents. 


Interfaces - DLZURGPO 


The interface with the reorganization message module (DLZURGMO) is 
through the tables provided in that module. See the description of 
that module for table format. 


The interface with the language interface module (DLZLI000) is as 
described in the documentation for that module. The DL/I “ISRT" and 
"“GHU" calls are issued by this program. 


The interface with the buffer handler module (DLZDBHOO0) is as 
described in the documentation for that module. The buffer handler 
module is used to directly access records in a data base. 


The interface with batch initialization to load the required Llocks 
dynamically is accomplished with the DLZBLKLD macro. 


Error Codes and Handling - DLZURGPO 


This program audits all input work data set records for consistency 
with data base control blocks, checks all data base update operations, 
and checks input control card information. Any errors encountered 
cause one or more messages to be generated. Refer to the DL/I DOS/VS 
Messages and Codes. 
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DLZURGMO - DB REORGANIZATION MESSAGE 


This module contains messages used by the following utilities: 
preorganization (DLZURPRO), scan (DLZURGSO), prefix resolution 
(DLZURG10), and prefix update (DLZURGP0). The module consists of the 
two tables defined below. 


Control Blocks - DLZURGMO 


1. Message Length and Offset Table 


One 4-byte takle entry exists for each message. Each 4-byte entry 
contains the message length and offset. 


2. Message Takle 


One variakle-length entry is present for each message. Each entry 
contains the text of the message. The length is found in the 
message length and offset table. 


Interfaces ~- DLZURGMO 
This module contains messages that are used ky the following modules: 


DLZURPRO (prereorganization) 
DLZURGSO (scan) 

DLZURG10 (prefix resolution) 
DLZURGPO (prefix update) 


TRACE PRINT UTILITY 


DLZTPRTO - TRACE PRINT UTILITY 


The Trace Print Utility is used to format and print trace entries 
previously written to a tape or disk by the CICS/VS extra partition 
dataset facility. The format of the output records on SYSLST is the 
same as those written directly to SYSLST by the Trace Facility. Trace 
Print Utility processing is as follows: 


1. The utility opens the reader (SYSIN), printer (SYSLST), and 
console log (SYSLOG). 


2. A read is issued to SYSIN, looking for a TI statement. If 
present, the fields on the statement are validated and saved. 
Further reads are issued to SYSIN until FOF is returned. All 
statements read from SYSIN are recorded on SYSLST . 


3. When End-of-File is reached on SYSIN, the reader is closed. 

4. A GETVIS is issued to acquire sufficient storage for two trace 
input buffers. The buffer size will either be the default of 
32763 kytes, or the size specified on the TI statement. 

5. The device assigned for trace input is then checked by the DLZDVCE 
macro routine. If the device is a valid tape or disk, the 
corresponding CTF is modified and the file opened fcr input. 

6. Trace records are then read from the input file until End-of-File 
is returned. 
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7. 


Trace entries are processed from the input buffer one at a time 
until all of the entries in the record are printed. If selective 
output was specified by using a TO statement, each q@mtry is 
checked against the desired selection. If the entry passes the 
selection test, it is printed. If it does not pass the test, it 
is ignored. When the last entry of the record is processed, 
control is returned to the read routine. 


8. Any errors detected will be written to SYSLST and/or SYSLOG. If 


DL/I 


no errors are detected, a message indicating successful completion 
is written. 


RUN AND BUFFER STATISTICS 


DLZSTTL - DL/I Run and Buffer. Statistics 


The 


run and buffer statistics function captures online (including MPS) 


DL/I system statistics and writes them to the extra-partition CSSL. 
This data is cumulative for the current invocation of CICS/VS and 
automatically printed during CICS/VS shutdown. 


Interfaces 


This module interfaces with the following modules: 


CSAPCNAC - CICS/VS program control routine 
CSASCNAC - CICS/VS storage control routine 
CSATDNAC - CICS/VS transient data control routine 


Control. blocks - DLZPRCT1 


CICS/VS - CSA 
CICS/VS - TCA 
DL/I - SCD 
DL/I - BFFL 
DL/I - SBIF 


Normal Entry Point 


The 


only entry point to this moduie is DLZPRCT1. 


Register Contents on Entry 


- RPL address 

- STTLPUT subroutine linkage 
- STTLCNFG loop control 
- DLZSBIF base register 
- DLZBFPL base register 
- DFHTCTITE base register 
~ DFHTIOA base register 
DFHTDOA base register 
DLSSTTL base register 
DFHTCADS base register 
DFHCSADS base register 
External link 
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Register Contents on Exit 


All registers are the same as on entry except R15, which contains the 
return address. a 
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SECTION 4: DIRECTORY 


This table gives the following information for all DL/I DOS/VS 
modules : 


e CORE IMAGE LIBRARY 


The name of the DL/I DOS/VS phase residing in the core 
image library. 


e CSECT(S)/ENTRY POINT(S) 


The CSECTs that comprise each PHASE. Any indented name 
under a CSECT is an entry point within that CSECT. If the 
indented name is preceded by ‘***, it designates a routine 
within the CSECT and may, or may not, appear on the link- 
edit map. Unreferenced entry points have been omitted. 


e RELOCATABLE LIBRARY 


The name(s) of the module(s) in the relocatable library 
that are needed for linkage editing. 


e SOURCE LIBRARY 


The name(s) of the module(s) in the source statement 
library. For each module, source code listings are 
available on microfiche (under the module name). 


e STORAGE ID 


The storage ID for the applicable modules. This is located 
near the beginning address of each module and is usually 
followed by the version, release level, and latest PTF 
number applied. 


e SUPPLEMENTARY INFORMATION 


The entry SVA means the module concerned is eligible to be 
loaded into the shared virtual area (SVA). Any other entry 
in this column is the entry point name that must be present 
on the END card when assembling this module, for example, 
END DLZBEGIN. ¢ FIGURE REFERENCE 


The figure number shown after the module name refers to the 
figure number of the module"’s HIPO diagram in Section 2: 
Method of Operation, Data Language/I Disk Operating 


System/Virtual Storage (DL/I DOS/VS) Logic Manual, Volume 
2, Order No. Ly24-5215. 
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CORE CSECT(S)/ 
IMAGE ENTRY RELO SOURCE 
LIBRARY POINT (S) LIBRARY 


STORAGE SUPPL 
LIBRARY ID INF 


SYSTEM CONTROL MODULES 


** Batch Initialization ** (See Figure 2-3) 
DLZRRCOO DLZRRCO0O 
*ERRORMSG 
DLZMMSGT 
DLZRDR 
DLZCONSL 
DLZ RRC10 
*DLZRRAOO 
*DLZPCCOO 
*DLZDBLMO 
* LOADDMBS 
*PCBROUT 
*DLZCPIOO 
*DMBLOADR 


DLZRRCOO DLZRRCOO DLZRRC 00 DLZRRCST 


DLZMMSGT DLZMMSGT DLZMMSGT 


** Batch Nucleus ** (See Figure 2-4) 
DLZBNUCO SCDCSECT 
SCDSTART 
*DLZ IWAIT 
*DLZPRHBO 
*DLZABEND 
*DLZEIP1 


DLZBNUCO DLZBNUCO DLZBNUCO 


DLZEI PBO DLZEIPBO DLZEI PBO 


** Online Initialization ** (See Figure 2-5) 


DFHSIDL DLZOLIOO 


*DLZCPI00 


DLZOLI00 DLZOLI0O 


DLZOLI00 


DLZOLI 00 
DLZOLI00 


** Online Nucleus ** (See Figure 2-6) 


DLZEIPOO 
DLZODP 
DLZODP00 
DLZSCHDL 
DLZODP03 
DLZODP02 
DLZODPO4 
DLZODPO7 
DLZ ODP0 6 
DLZODPO1 
DLZTKTRM 
*DLZTKBAD 
+TRMSUSPA 


DLZNUCxx DLZODP DLZODP DLZNUCxx DLZODP 


DLZODP02 
DLZODPO4 


DLZODP01 


DLZODP05 
DLZ PRHOO 
DLZ ABNDO 
DLZOLTO0 
DLZOLT0O 2 
DLZOLTO1 
DLZOWAIT 
DLZOVSEX 
DLZ ERMSG 
DLZODP10 
DLZODP11 
DLZEIPI 


DLZEI POO 


DLZEIPOO 
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DLZODPO05 
DLZPRHOO 


DLZOLTOO 


DLZOWAIT 
DLZOVS EX 
DLZERMSG 
DLZODP10 
DLZODP11 
DLZEIPOO 


CORE 
IMAGE 
LIBRARY 


— wwe oe ee ee 


CSECT(S)/ 


ENTRY 

POINT (S) 
DLZSTROO 
DLZCOMO00 
DLZCOM01 
DLZ LOCOO 
DLZLOCO1 
DLZODPEX 
DLZNUC 

SCDSTART 
DLZEIPL 
DLZMMSGT 
DLZFTDPO 
DLZ ISCOO 
DLZISCO2 
DLZ1ISC01 
DLZ ISCOQ3 


RELO 
LIBRARY 
DLZSTROO 
DLZCOM00 


DLZLO C00 


DLZMMSGT 
DLZFTDPO 
DLZISCOO 


SOURCE 
LIBRARY 
DLZSTROO 
DLZCOMO00 


DLZLOC00 


DLZMMSGT 
DLZFTDPO 
DLZISCO0 


Note: xx is the result of ACT generation. 


** DL/I Online System Termination ** 


DLZSTPO0O 


DL/I FACILITY MODULES 


DLZSTP00 


** Call Analyzer ** 


DLZDLAO0O 


** Retrieve ** 


DLZDLROO 


DLZDLA0O 


DLZ DLA01 


DLZDLROO 
DLZDLR10 
DLZRETNO 
DLZEODC 0 
DLZGERCO 
DLZGERO 
DLZGETSO 


DLZCLRPO 


DLZWIPEO 
DLZMOVAO 
DLZMOVBO 
DLZDELTO 
DLZPSDBO 
DLZ HUNTO 
DLZSETLO 
DLZBHO 

DLZSSDBO 
DLZNOOPO 
DLZCONCO 


DLZSSAO 


DLZTAGO 
DLZLTWO 
DLZNOSSO 


DLZHIDAO 


DLZ HDAMO 


DLZSTPOO 


(See Figure 2-8) 


DL ZDLA0O 


DLZDLAO1 


(See Figure 2-9) 


DLZDLRAO 


DLZDLRBO 


DLZDLRCO 


DLZDLREO 
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(See Figure 2-7) 


DLZSTPOO 


DLZDLAOO 


DLZDIA01 


DLZDLRAO 


DLZDLRBO 


DLZDLRCO 


DLZDLREO 


STORAGE 
ID 


DLZSTROO 
DLZCOM) ) 


DLZLOC 00 


DLZOD PEX 


DLZMMSGT 
DLZFTDPO 
DLZISC 00 


DLZDLA00 


DLZDLA01 


DLZDLRAO 


DLZDLRBO 


DLZDLRCO 


DLZ DLREO 


SVA 
DLZEPDLA 


SVA 


CORE CSECT(S)7/ 
IMAGE ENTRY 
LIBRARY POINT (S) 
DLZHISAO 
DLZSTLAO 
DLZSTLGO 
DLZUPDTO 
DLZKDTEO 
DLZPCHKO 
DLZISRTO 
DLZVLRTO 
DLZAREJO 
DLZVLCHO 
DLZXDFTO 
DLZHSAMO 
DLZALTSO 
DLZ LOGRO 
DLZRETKO 
DLZRETIO 
DLZKDRKO 
DLZKDTLO 
DLZUPDCO 
DLZUPDLO 
DLZAPSTO 
DLZY ENTO 
DLZYSTCO 
DLZY ENDO 
DLZDEQO 
DLZPOSTO 
DLZSKPGO 
DLZSKPSO 
DLZSKPDO 
DLZSKPEO 
DLZRLNKD 


** Load/Insert ** (See 


DLZDDLEO DLZDDLEO 
HDROUTIN 


HSROUTIN 


** Delete/Replace ** (See Figure 2-11) 


DLZDLDOO DLZDLDOO 
DLZDLDSO 
DLZDLDDO 
DLZDLDAO 
DLZDLDRO 


** Tndex Maintenance ** 


DLZDXMTO DLZDXMTO 


** HD Space Management ** 


DLZDHDSO DLZDHDSO 
DLZGGSPC 
DLZRRTRN 
DLZFRSPC 
DLZLLCLC 
DLZMMLCT 


DLZ RRHPL 


RELO 
LIBRARY 


DLZDLRFO 


DLZFLDO 


DLZDLRDO 


DLZDLRGO 


DLZRLNKD 


Figure 2-10) 


DLZDDLEO 


DLZDLDOO 


DLZDLRFO 


DLZDLRDO 


DLZDLRGO 


DLZRLNKD 


DLZDDLEO 


DLZDLDOO 


(See Figure 2-12) 


DLZDXMTO 


DLZDHDSO 
DLZGGSP0 


DLZFRSPO 
DLZLLCLO 
DLZMMLCO 
DLZRCHPO 


DLZDXMTO 


(See Figure 2-13) 


DLZDHDSO 
DLZGGSP0 


DLZFRSPO 
DLZLLCLO 
DLZMMLC0 
DLZRCHPO 
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STORAGE 
ID 


DLZDLRFO 


DLZDLRDO 


DLZDLRGO 


DLZRLNKD 


DLZDDLEO 


DLZDLD 00 


DLZDXMTO 


DLZDHDSO 
DLZGGS PO 


DLZFRSPO 
DLZLLCLO 
DLZMMLCO 
DLZRCHPO 


SVA 


SVA 
DELREPEP 


SVA 
DLZDXMTO 


SVA 


** Open/Close ** 


DLZDLOCO 


CSECT(S)/ 
ENTRY 
POINT (S) 
DLZRCHBK 
DLZRCBK2 
DLZMMUDT 
DLZMMOFF 
DLZMMON 
DLZRRHMP 
DFSRLO30 
*SNAPDCB 
*SNPSW 
*SNPCNT 
DLZDC 100 


DLZDLOCO 


** DB Buffer Handler 


DLZDBHOO 


** DB Logger *¥* 


DLZRDBLO 


DLZDBHO00 
DLZEBHOO 
*MAINROUT 
ROULINK 
*PREPENQ 
*PREPDEQ 
*ABEXIT 
*BOTTOUSE 
*ALLDEQ 
*BFFERREL 
*RETURN 
DLZDBHO2 
*WRITE 
*READ 
*HSREAD 
*HSWRITE 
*LOWRITE 
*PUTKY 
*MSPUT 
*STLEQ 
*STLBG 
*GETNX 
DETIOERR 
*TSTPST1 
DLZDBHO03 
*ENOQ 
*DEQ 
*CONVADNR 
*MRKEMPT 
*PGUSR 
*CONVNARD 


DLZRDBLO 
DLZIDBLO 
IOFILA1 
LOGOUT 
LSCDADDR 

IJFUZZZN 
IJ FUZZ2Z 
IJ2N00nn 

ONLLOGWR 


RELO 
LIBRARY 


DLZRCHBO 
DLZMMUDO 


DLZRRHMO 
DLZDHDSO 


DLZDCIOO 


(See Figure 2-14) 


DLZDLOCO 


SOURCE 
LIBRARY 


DLZRCHBO 


DLZMMUDO 


DLZRRHMO 


DLZDHDOO 


DLZDCIOO 


DL ZDLOC 0 


(See Figure 2-15) 


DLZDBHO0O 


DLZDBHO02 


DLZDBHO3 


(See Figure 2-16) 


DLZRDBLO 


IJFUZZZN 


DLZRDBLO 
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DLZDBHOO 


DLZDBHO02 


DLZDBHO3 


DL ZRDBLO 


DLZRDBLO 


STORAGE 
ID 


DLZRCHBO 


DLZMMUDO 


DLZRRHMO 


DLZDCIOO 


DLZDLOCO 


DLZDBHOO 


DLZDBHO02 


DLZDBHO3 


DLZRDBLO 


SVA 
DLZEBH 00 


DLZRDBLO 


CORE CSECT(S)/ 
IMAGE ENTRY RELO 
LIBRARY POINT (S) LIBRARY 
(DLZRDBLO) SAVE 

PRIVECB 


SOURCE 
LIBRARY 


** CICS/VS Journal Logger ** (See Figure 2-17) 


DLZRDBL1 DLZRDBL1 DLZRDBL1 DLZR DBL1 


DLZIDBLO 
** Queuing Facility ** (See Figure 2-23) 


DLZQUEFO 
DLZQUEFW 


DLZQUEFO 
DLZQUEFW 


DLZQUEFO 
DLZQUEFW 


DLZQUEFO 
DLZQUEFW 


** Field Level Sensitivity Copy ** (See Figure 2-40) 


DLZCPY10 DLZCPY10 DLZCPY10 


DLZSEGCV 


DLZCPY10 


MPS CONTROL MODULES 


** Start Transaction ** (See Figure 2-18) 


DLZMSTRO DLZMSTRO DLZMSTRO DLZMSTRO 


** Master Partition Controller ** (See Figure 2-19) 


DLZMPCO0 DLZMPCOO0 DLZMPCOO0 DLZMPCO0O0 


** Batch Partition Controller ** (See Figure 2-20) 


DLZ BPCOO0 DLZBPC 00 


DLZLI000 


DLZBPCOO0 DLZBPCOO 


** MPS Batch ** (See Figure 2-21) 


DLZMPI00 DLZMPIOO DLZMP 100 DLZMPI00 
+DLZMPRH 
DLZMINIT 
+*DLZMTERM 
+*DLZMMSG 
*DLZMABND 
DLZCONSL 
DLZDIMOD 
+*DLZEIPI 


DLZMMSGT 


DLZEIPBO 
DLZMMSGT 


D LZEI PBO 
DLZMMSGT 


** Stop Transaction ** (See Figure 2-22) 


DLZMST PO DLZMSTPO DLZMSTPO DLZMSTPO 


DATA BASE RECOVERY UTILITIES 


** DB Data Set Image Copy ** (See Figure 2-25) 


DLZUDMPO DLZUDMPO DL ZUDMPO DLZUDMPO 
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STORAGE 
ID 


DLZRDBL1 


DLZQUEFO 
DLZQUEFW 


DLZCPY10 
DLZSEGCV 


DLZMSTRO 


DLZMPCO0O0 


DLZBPC00 


DLZMPI 00 


DLZEIPBO 
DL ZMMSGT 


DLZMSTPO 


DLZUDMPO 


DLZRDBL1 


DLZQUEF0 


DLZQUEFW 


SVA 


DLZMINIT 


** DB Change Accumulation ** 


DLZUCUMO 


** DB Data 


DLZU RDBO 


** DB Change Backout ** 


DLZBACKO 


CSECT(S)/ 


ENTRY 

POINT (S) 
IJ2Mnnnn 
DLZDMPMO 
IJJFCBZD 
IJFSZZWN 


IJEVZZWN 


IJGQOC ZZ 
IJGVOCZZ 


DLZUCUMO 


DLZERRTN 
DLZUSPKL 
DLZWORK# 


DLZPRNT 
DLZSLOG 


DLZUCONS 


DLZUCCTO 
DLZUC150 


DLZUEX15 


DLZUC350 


DLZUEX35 


DLZUCERO 
DLZCUMMO 
IJFSZZWN 


IJEVZ2ZWZ 
IJFSZZWZ 


IJGQICZZ 


IJGQIZ2ZZ 


IJGQOC2ZZ 


IJGQ02Z2Z 


IJJFCBZD 


IJJFCI2D 


IJ2Mnnnn 
LJFUZZ2ZZ 
IJGUIZ2ZZ 


Set Recovery 


DLZURDBO 
DLZURCCO 
DLZL1I000 

CDLTDLI 
DLZRDBMO 
IJJFCBID 


IJJFCBZD 
IJJFCIID 


IJFSZZWN 


IJFVZZWN 


IJ2Mnnnn 
IJFUZZZN 
IJGUICZZ 
IJGQICZZ 
IJGVICZZ 


DLZ BACKO 


READAREA 


IJ2Mnnnn 
DLZ RDBC 0 


DLZUDMPO 
DLZDMPMO 
IJJFCBZD 
IJFSZZWN 


TJGQO0C ZZ 


DLZUCUMO 


DLZUCCTO 
DLZUC1i50 


DLZUC350 
DLZUCERO 
DLZCUMMO 
IJFSZZWN 
IJ GOQICZZ 
IJ GQOCZZ 
IJJFCBZD 
DLZUCUMO 
IJ FUZ2Z2Z2 
LJGUI 2ZZZ 
** (See 
DLZURDBO 
DLZURCCO 
DLZLI 000 
DLZRDBMO 
IJJFCBID 
IJ FSZZWN 
DLZURDBO 
IJ FUZZZN 


ITJGUICZZ 
IJ GOQICZZ 


Figure 


SOURCE 
LIBRARY 
DLZUDMPO 
DLZDMPMO 


(See Figure 2-26) 


DLZUCUMO 


DLZUCCTO 
DLZUC150 


DLZUC350 


DLZUCERO 
DLZCUMMO 


DL ZUCUMO 


2-27) 

DLZURDBO 
DLZURCCO 
DLZLI000 


DLZRDBMO 


DL ZURBDO 


(See Figure 2-28) 


DLZBACKO 


DLZRDBCO 
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DLZBACKO 


DLZRDBCO 


STORAGE 
ID 


DLZUCU MO 


DLZUCCTO 
DLZUC1 50 


DLZUC350 


DLZUCERO 
DLZCUMMO 


DLZURDBO 
DLZURCCO 
DLZL1I000 


DLZRDBMO 


DLZBACKO. 


DLZRDBCO 
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DLZURDBO 
DLZURCCO 


CORE 
IMAGE 
LIBRARY 


ee oe ee ee ee 


** Log Print Utility ** 


CSECT(S)/ 


ENTRY 

POINT(S) 
DLZBACMO 
DLZLI000 
-ASMTDLI 
IJFUBZZZ 
IJJFCBZD 


IJJFCIZD 


DLZBACMO 
DLZL1I000 


IJ FUBZZZ 
IJJFCBZD 


SOURCE 
LIBRARY 
DLZBACMO 
DLZL1I000 


(See Figure 2-39) 


DLZLO GPO DLZLOGPO DLZLOGPO DLZLOGPO 
DLZLGPCN 
DLZLGPMT 
DLZLPCCO DLZLPCCO DLZLPCCO 
DLZLGPMO DLZLGPMO DLZLGPMO 
IJJFCBID IJJFCBID 
IJJFCIID 
IJFUZZZN IJFUZZZN 
IJGUICZZ IJ GUICZZ 

DATA BASE REORGANIZATION UTILITIES 

** HS DB Unload ** (See Figure 2-29) 

DLZURULO DLZURULO DLZURULO DLZURULO 
DLZRULMO DLZRULMO DLZRULMO 
LIJJFCBZD IJJFCBZD 
IJFVZZWN IJFVZZWN 
DLZCONSL 

** HS DB Reload ** (See Figure 2-30) 

DLZURRLO DLZURRLO DLZURRLO DLZURRLO 
DLZRRLMO DLZRRLMO DLZRRLMO 
LIJJFCBZD IJJFCBZD 
IJFVZZWN IJ FVZZWN 
LIJFVZZWZ 
DLZCONSL 

** HD DB Unload ** (See Figure 2-31) 

DLZURGUO DLZURGUO DLZURGUO DLZU RGUO 
DLZCONSL 
DLZLI000 DLZLI 000 DLZLI000 
CBLTDLI 
DLZ RGUMO DLZRGUMO DLZRGUMO 
IJJFCBZD IJJ FCBZD 
IJ FUZZZN LJFUZZZN 
LIJGUO0CZZ IJ GUOCZZ 
LJGUICZZ IJGUIC ZZ 
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DL ZBACMO 
DLZLI000 


DLZLOGPO 


DLZLPCCO 


DL ZURULO 


DLZURRLO 


DLZURGUO 


DLZLI000 


DLZLOGPE 


DLZLPCCO 
DLZLGPMO 


CORE | 
IMAGE 
LIBRARY 


CSECT (S)/ 
ENTRY 
POINT(S) 


** HD DB Reload *+ 


DLZURGLO 


DLZURGLO 
DLZLIO000 
CBLTDLI 
DLZRGLMO 
IJJFCBZD 
IJGQICZZ 
IJGVICZZ 
IJFSZZWN 
IJFVZZZN 


ACB UTILITY 


** ACB Creation ** 


DLZUACBO 


DB LOGICAL RELATIONSHIP 


** Prereorganization ** 


DLZURPRO 


** DB Scan 


DLZURGSO 


DLZUACBO 
PRIMSG 
DLZDLBLO 
PSBPASS 
DLZDLBL4 
DLZDLBL1i 
DLZDLBL2 
DLZDLBL3 
FREESTOR 
IJSYSLN 
PCHDTF 
DLZLBLMO 
DLZUSCHO 
INSRCH 
CLOSESCH 
DLZDPS BO 
IJJCPDIN 
IJJFCBZD 
IJJFCIZD 


DLZURPRO 
DLZLI000 
ASMTDLI 
DLZURGMO 
IJJFCBZD 
IJGFOC ZZ 


RELO 


ee eae 


(See Figure 2-32) 


DLZURGLO 
DLZLI000 
DLZRGLMO 
IJJ FCBZD 
IJGQICZZ 


IJ FSZZWN 


(See Figure 2-33) 


D LZUACBO 


DLZDLBLO 


DLZDLBL1 
DLZDLBL2 
DLZDL BL3 


DLZLBLMO 
DLZUSCH 0 


DLZ DPSBO 
IJJCPD1N 
IJJFCBZD 


UTILITIES 


SOURCE 
LIBRARY 


DLZURGLO 
DLZLI000 


DLZRGLMO 


DLZUACBO 


DLZDLBLO 


DLZDLBL1 
DLZDLBL2 
DLZ DLBL 3 


DLZLBLMO 
DLZUSCHO 


DLZDPSBO 


(See Figure 2-34) 


DLZURPRO 
DLZLI 000 


DLZURGMO 
IJJ FCBZD 
IJGFOC ZZ 


** (See Figure 2-35) 


DLZURGS0 
DLZCONSL 
DLZURGMO 
DLZLI000 
ASMTDLI 
IJJFCBZD 
IJJFCIZD 


DLZURGSO 


DLZURGMO 
DLZLI 000 


IJJ FCBZD 
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DLZURPRO 
DLZLI000 


DLZURGMO 


DLZURGSO 


DLZURGMO 
DLZL1000 
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DLZURGLO 
DLZLI000 


DLZUACBO 


DL ZDLBLO 


DL ZDLBL1 
DLZDLBL2 
DLZDLBL3 


DLZLBLMO 
DLZUSCHO 


DLZDPSBO 


DLZURPRO 
DLZLI000 


DLZURGSO 


DLZLI000 
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CSECT (S)/ 
ENTRY 
POINT (S) 
IJFSZZWN 
LJFVZZZN 
IJGQICZZ 
IJGVICZZ 
IJGFICZZ 


** Prefix Resolution 
DLZURG10 DLZURG10 
DLZURGMO 
IJJFCBZD 
IJJFCIZD 
IJGFICZZ 
IJGQICZZ 
IJGV1ICZZ 
IJFSZZWN 
IJFVZZZN 
IJFVZZWN 
LIJFFZZ2Z2N 
IJGQOCZZ 
IJGVOCZZ 
DLZX15S1 
DLZX15S2 
DLZX35S1 
DLZX3 5S2 
** Prefix Update ** 
DLZURGPO DLZURGPO 
DLZURGMO 
DLZLI000 
ASMT DLI 
CBLTDLI 
IJJFCB2ZD 
LJJFCLIZD 
IJFSZZWN 
IJFVZZ2ZN 
LTIGQICZZ 
IJGV1ICZZ 


** Work File Generator *# 


DLZDSEHO DLZDSEHO 
DLZBEGIN 
OPENWORK 
IJFSZZWN 
IJFVZZWN 
IJGFICZZ 
IJGQO0CZZ 
IJGVOC ZZ 


** 


RELO 
LIBRARY 


IJ FSZZWN 
IJ GQICZZ 


IJ GFICZZ 


SOURCE 
LIBRARY 


(See Figure 2-36) 


DLZURG10 
DLZURGMO 
IJJ FCBZD 


IJ GFICZZ 
ITJGQICZZ 


IJFSZZWN 
IJ FFZZZN 
TJGQOC ZZ 


DLZURG10 


(See Figure 


DLZURGPO 
DLZURGMO 
DLZLI 000 
IJJ FCBZD 
IJ FSZ ZWN 


Id GQICZZ 


DLZDSEHO 


IJFSZZWN 


IJGFIC ZZ 
IJ GQ0 CZZ 


DIAGNOSTIC AND TEST MODULES 


** System Formatted Dump ** 


DLZFSDPO DLZFSDPO 
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DLZFSDPO 
DLZTRPRO 


2-37) 


DLZURG10 
DLZURGMO 


DLZURG10 


DLZURGP 0 
DLZURGMO 
DLZLI000 


(See Figure 2-38) 


DLZDSEHO 


DLZFSDPO 
DLZTRPRO 
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DLZURG10 


DLZURG PO 


DLZL1I000 


DLZDSEHO DLZBEGIN 


DLZFSDPO 
DLZTRPRO 


CORE 
IMAGE 
LIBRARY 


CSECT(S)/ 


ENTRY 
POINT (S) 


RELO 
LIBRARY 


** DL/I Tracing Facility ** 


user 
chosen 


DLZTRACE 


DLZTRPRO 
IJJFCBIC 


user 
chosen 

DLZTRPRO 
IJJFCBIC 


** DL/I Test Program - Batch ** 


DLZDLTXX 


DLITCBL 
DLZSNAP 
DLZL1I000 
CBLTDLI 
IJGFIZZZ 
IJJFCBID 


IJJFCIID 


DLZDLTXX 


DLZL1000 


LJUGFI 222 
IJJ FCBID 


** DL/I Test Program - Online ** 


DLZDLTXY 


DLITCBL 
DLZSNAP 
DLZL1I000 
CBLTDLI 
IJGF1I2Z2Z 
IJJFCBID 


IJJFCIID 


DLZDLTXY 
DLZLI000 


IJGFI 222 
IJJFCBID 


** Online Task Formatted Dump ** 


DLZFTDPO 


DLZFTDPO 


DLZFTDPO 


** Run and Buffer Statistics ** 


DLZSTTL 


** Trace Print Utility ** 


DLZT PRTO 


** HD Partial Reorganization Utility ** 


DLZPRABC 
DLZPRCLN 
DLZPRCT1 


DLZPRCT2 


DLZSTTL 


DLZTPRTO 
DLZTPRMO 
IJJFCBIC 
IJJFCiIZD 
IJFVZZ2ZZ 
IJGVIEZZ 
IJ 2M0021 


DLZ PRABC 
DLZPRCLN 
DLZPRCT1 
COMAREA 
IJJFCBZD 
IJJFCIZD 
DLZPRCT2 
WORK1 
COMAREA 
DLZLI000 
ASMTDLI 
CBLTDLI 
PLITDLI 
RPGTDLI 
IJJFCBZD 


DLZSTTL 


DLZTPRTO 
D LZTPRMO 


IJJFCIZD 
IJFVZZ2Z 


IJ GVIEZZ 
IJ2M0021 


DLZPRABC 
DLZPRCLN 
DLZPRCT1 
IJJFCBZD 


DLZPRCT2 


DLZLI 000 


IJJFCBZD 


SOURCE 
LIBRARY 


DLZTRACE 


DLZTRPRO 


DLZDLTXX 


DLZL1I000 


DLZDLTXY 


DLZLI000 


DLZFTDPO 


(See Figure 2-42) 


DLZSTTL 


(See Figure 2-41) 


DLZTPRTO 
DLZTPRMO 


STORAGE 
ID 


DLZTRACE 


DLZTRPRO 


DLZDLTXX 


DLZLI000 


DLZDLTXY 


DLZLIOOO 


DLZFTDPO 


DLZSTTL 


DLZTPRTO 


(See Figure 2-43) 


DLZPRABC 
DLZPRCLN 
DLZPRCT1 


DLZPRCT2 


DLZLI000 


DLZPRABC 
DLZPRCLN 
DLZPRCT1 


DLZPRCT2 


DL ZL1I000 
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DLZTPRTE 
DLZTPRMO 


CORE 
IMAGE 
LIBRARY 


DLZPRDBD 
DLZPRDLI 
DLZPRERR 
DLZPRPAR 
DLZPRPSB 
DLZPRREP 
DLZPRSCC 
DLZPRSTC 
DLZPRSTW 
DLZPRUPD 
DLZPRURC 
DLZPRWFM 


CSECT(S)/ 
ENTRY 
POINT (S) 
IJJFCIZD 
DLZPRDBD 
DLZPRDLI 
DLZPRERR 
DLZPRPAR 
DLZPRPSB 
DLZPRREP 
DLZPRSCC 
DLZPRSTC 
DLZPRSTW 
DLZ PRUPD 
DLZ PRURC 
DLZPRWFM 


RELO 
LIBRARY 


DLZPRDBD 
DLZPRDLI 
DLZPRERR 
DLZPRPAR 
DLZPRPSB 
DLZPRREP 
DLZPRSCC 
DLZPRSTC 
DLZPRSTW 
DLZPRUPD 
DLZPRURC 
DLZPRWFM 


SOURCE 
LIBRARY 


oe we wee 


DLZPRDBD 
DLZPRDLI 
DLZPRERR 
DLZPRPAR 
DLZPRPSB 
DLZPRREP 
DLZPRSCC 
DLZPRSTC 
DLZPRSTW 
DLZPRUPD 
DLZPRURC 
DLZPRWFM 


4-12 Licensed Material - Property of IBM 


STORAGE 
ID 


DLZ PRDBD 
DLZPRDLI 
DLZPRERR 
DLZPRPAR 
DLZ PRPSB 
DLZPRREP 
DL ZPRSCC 
DLZPRSTC 
DLZ PRSTW 
DLZ PRU PD 
DLZPRURC 
DLZPRWFM 


‘SECTION 5: DATA AREAS 


This section describes the major data areas used by DL/I DOS/VS. The 
description of each data area generally includes: 


Its DSECT name. 

The symbolic names of the fields and flags. 

The displacement of each field, in both decimal and hexadecimal. 
The length of each field. 


An alphabetic listing of all field and flag names (flags are 
indicated by asterisks). 


The hexadecimal code of each flag. 


The data areas are documented in alphabetical order as listed in the 
Contents of this publication. 


This section also describes the DL/I partition in a batch environment 
and illustrates the relationship of the DL/I control blocks. In 
addition, the description and general structure is given for the data 
management block (DMB), the program specification block (PSB) , and the 
DL/I kuffer pool control clocks. 
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THE DL/I PARTITION AND CONTROL BLOCK RELATIONSHIP 


The following text describes the DL/I partition in a batch environment 
and illustrates the relationship of the DL/I control Elocks described 
in this section. 


THE DL/I BATCH PARTITION 


Figure 5-1 is a map of main storage in the DI/I DOS/VS batch 
partition. Storage is allocated from the bottom or lowest storage 
address to the top or highest storage address of the partition. The 
eight areas in the DL/I batch partition are as follows: 


e Area 1 contains the DL/I nucleus. The SCD is the first control 
klock in the nucleus and contains the DL/I copyright infornation. 
This block also contains the entry point address for every module 
in the DL/I system. The PST prefix, PST, and PSB directory (PDIR) 
are in this area. There is one entry in the PSB directory (PDIR). 


e Area 2 contains the DL/I program request handler, DLZPRHBO, which 
is loaded during DL/I initialization. It is part of the batch 
nucleus module (DLZBNUCO). 


e Area 3 contains the PSB intent list, PSB, and one DMB directory 
(DDIR) for each DMB referenced by the PSB. The DMB directory is 
created dynamically during DL/I initialization. 


e Area 4 contains DMBs loaded from the COS/VS Core Image Library by 
the DL/I Batch Initialization module. Randomizing modules are 
loaded after the DMBs for HDAM. They are followed by VSAM control 


blocks, index management modules if secondary indexes are used, and... 


ky segment compression modules if variable length segments are 
used. 


e Area 5 contains the DL/I buffer pool control blocks. These blocks 
are created dynamically. There are one buffer pool prefix, cne 
sukpool information table for each subpool specified, one DMB 
sukpool directory entry for each DMB, and 2-32 buffer prefixes for 
each subpool specified. 


e Area 6 contains the DL/I I/O buffers which comprise the buffer 
pool. There are 2-32 bcuffers for each subpool specified. Each 
sukpool is aligned on a 2K page boundary. 


e Area 7 contains the DL/I action modules and the user trace module 
if requested. 


e Area 8 contains the user batch application program. 
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HIGH STORAGE 


LOCATION AREA 
Ss eacaaeedghcaaineeieeties anaemia cali 


DL/I BATCH APPLICATION PROGRAM 


PAGE BOUNDARY 
RS 


SPACE MANAGEMENT — DLZDHDSO 
OPEN/CLOSE — DLZDLOCO 


TRACE MODULE — (USER NAMED) 


LOAD/INSERT — DLZDDLEO INDEX MAINTENANCE — DLZDXMTO 


DELETE/REPLACE — DLZDLDOO 
CALL ANALYZER — DLZDLAOO DATA BASE LOGGER — DLZRDBLO 


DL/I RETRIEVE — DLZDLROO 


COMMON BUFFER HANDLER — DLZDBHOO 


BUFFER POOL (NOTE) 
PAGE BOUNDARY 


a a 
BUFFER POOL CONTROL BLOCKS (NOTE) 
 aearaeaienriemmes nanemesemeetnain cae 


PAGE BOUNDARY VSAM CONTROL BLOCKS, INDEX MANAGEMENT MODULES, 
AND SEGMENT COMPRESSION MODULES 


DMB POOL AND RANDOMIZING MODULES 


PSB INTENT LIST AND PSB DMB DIRECTORY (NOTE) 


APPLICATION PROGRAM REQUEST HANDLER — DLZPRHBO 


DL/I NUCLEUS — DLZBNUCO 
SCD ~— PST PREFIX — PST — PSB DIRECTORY 


LOW STORAGE 
LOCATION 


DLZRRCOO — PARTLY OVERLAID BY DLZBNUCO 
_eauCaRNAa Tea RETRTRLERRIETEEEGU IC 
NOTE: BLOCKS DYNAMICALLY CREATED OR FORMATTED 


Figure 5-1. Map of Main Storage in the LL/I Batch Partition 
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DL/I CONTROL BLOCK RELATIONSHIP 


The purpose of this section is to show the relationshirs of the 
various DL/I control blocks and provide a means ky which the user can 
quickly find his way to these control blocks. The following 
discussion references Figure 5-2. 


The SCD is the major control block in the DL/I system. It is located 
at the beginning of the DL/I nucleus. The SCD contains DL/I copyright 
information, entry point addresses of the DL/I logic module, and 
pointers to the following DL/I control biocks: 


e The buffer pool prefix, which is the first block of the buffer pool 
control blocks. 


e The first PSB directory from which the first PSB and PSB intent 
list may be obtained. In a batch system, there is only one PSB 
directory. 


e The first DMB directory. There is one DMB directory for each DMB 
referenced by the PCBs. 


e The first PST prefix from which the first PST may be obtained. 
There is only one PST prefix in a batch system. 


The PST, including the PST prefix, functionally relates the control 
blocks for DL/I and represents the batch or CICS/DOS/VS - DL/I cnline 
task being served by DL/I. The PST is the dispatching block and is 
the only parameter passed when calling another module. The address of 
the PST is contained in the PST prefix. The following pointers are 
available in the PST: 


e cCaller's (user program) parameter list 
® ScD 

e PSB directory for the task 

e PCB currently being accessed 


e I/70 buffer to be used for the data base call (used by the buffer 
handler) 


e Sukpool information table assigned to the data base (used by the 
buffer handler) 


e Buffer prefix which points to the I/O buffer containing the 
segment for the call (used by the buffer handler) 


There is one PSB directory entry and one PSB for each program that may 
be accessed by DL/I. In a CICS/DOS/VS - DL/I online environment, the 
maximum is 255; in batch, there can be only one. The PSB directory 
contains address pointers to the PSB and the PSB intent list. 


The PSB intent list is a variable-length control block and contains an 
entry for each DMB referenced by the PSB. Each entry contains the 
address of the DMB. 


The PSB contains prefix information and one or more PCBs. For each 
PCB there is a JCB, which is made up of the following: JCB prefix, 
level table, and one or more SDBs. The PCB points to the JCB. The 
JCB contains working storage for the program's use of that data base 
and points to the level takle. The JCB also points to the SDB for the 
root segment and the VSAM ACB for the data base (KSDS ACB if HISAM). 
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The level table contains working storage for DL/I to store its 
positioning data for each level of the data base. The level table 
points to the current level SDB. 


The SDB describes the user's logical use of the sensitive segment. 
There is one SDB for each segment to which the user is sensitive. 
Each SDB points to the corresponding PSDB in the DMB. 

The DMB directory contains the address of the DMB. Each DMB contains 
a prefix, one ACB extension for each data set in the DMB (two if 
HISAM), one PSDB for each physical segment type, and one FDB for each 
field defined for a segment. In addition, there is one direct 
algorithm communication takle (DMBDACS) if HDAM is used, and secondary 
list entries if HIDAM or HDAM with index or original relationships is 
used. 

The DMB prefix contains: 

e A two-byte relative offset to the first PSDB 


e A two-byte relative offset to the end of the last FSDB+1, which is 
either the first secondary list entry (HIDAM) or the first FDB 


e A four-byte pointer to DMBDACS if HDAM 


The ACB extension contains information akout the data set as well as 
an address pointer to the VSAM ACB and RPL for the data set. 


Each PSDB contains: 

e A pointer to the first FDB for the segment 

e A pointer to the SDB for the active PCB which is sensitive to this 
segment type. If more than one PCR is sensitive to this segment 


tyre, the address of the SDB for the next PCB is contained in the 
active PSDB. 


The DMBDACS contains the address of the user‘s randomizing routine; 
most of the secondary list entries point to the DMB directory for the 
described index or logically related data base. 


The following items may be obtained from the buffer pool prefix: 


e The first subpool information table (immediately following the 
kuffer pool prefix) 


e An address pointer to the first buffer prefix 


e An address pointer to the first DME subpool directory entry 


The kuffer prefix contains an address pointer to the I/O buffer which 
it references. 
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9-S 
"@-G ernbtg 


WHI yo AqxAaedorq - TeTIa}eEW pesuUedDTT 


sdtysuotzetey yOoTE Tor3uoeD I/ 1d 


DMB Directory 
8 (08) DDIRADDR 


a2) 





DMB 
1 OMB Prefix 
2 (02) DMBLENTB 
4 (04) DMBSECTB 


12 (OC) DMBDALGR 





DL/I ACB Extension 
4} 0 (00) OMBACBAD 
52 (34) DMBACBRP 


ACB Extension 
HISAM ESDS 


oa 


ACB (VSAM) 


ACB (HISAM) 


DMBDACS (HDAM) 
9 (09) DMBDAEP 


wW 


DMBCPAC (HD} 


OMBXMPRM (HD) 


DMBPSDB, 
16 (10) OMBFD8A 


20 (14) OMBFSDB 


sh DMBPsDB,, 1 


DMBSEC (HIDAM) 





FOB, 


Tape or DASD 
1/0 Module 



















PSB Intent List 
0 (00) PSILDIRA 








SCD Extension 


8 (08) SCDABSV 
20 (14) PDIRSILA 
8 (08) PDIRADDR 





Sh I ea eet J 








User Random 
Module 
Module 


User Index Module 






















24 (18) FSBFERTA 


i FSB, 1 


eal 






0 (00) 












a 

1 

t 

! 

' Buffer Pool 
1 Control! Blocks 
t 
t 
1 
I 
I 
| 













Buffer Pool Prefix 


128 (80) BFPLPRAD 


132 (84) BFPLSUBD 
136 (88) BFPLSUIN 





Subpool Information 
Table, 


Ee 


PSTPREAD 


















68 (44) PSTSCDAD 
72 (48) PSTIQPRM i : 
88 (58) PSTPSB ors ae 
132 (84) PSTDBPCB in 
156. (9C) PSTDATA 
160 (AO) PSTBUFFA 
164 (A4) PSTBFUSE DMB SP DIR 
168 (A8) PSTSUIN 
572.(23C) PSTRRDF 
576 (240) PSTRDDL SuRSraE 
580 (244) PSTRPSTA 
596 (254) PSTFLD 

RPST DMB SP DIR 
25 (19) RPSTACTA 10] 

Buffer Prefix, 
RIB 





Field Exit Routine 
Table Entry 1 


Local PCB 
Address List 


12 (0C) FERTRTLG 


User Field 
Exit Routine 


12 (0C) BFFRADDR 


F Buffer Prefix, i 


1/O Buffers 


| ares 









Notes: 


1, PCB shows the processing option from PSBGEN 
and segment name feedback. 


. JCBTRACE functions and return codes. 
. Pointer STX!T ABEND save area. 

. Pointer of OMB log module. 

. Pointer to User Parameter List. 


. PSTFNCTN and PSTRTCDE give the internal 
function and return code resulting from a call. 


. Pointer to requested code. 
. Address of queuing facility work area. 
9. Address of SCD. : 


oar wn 





aon 


DATA MANAGEMENT BLOCK — DMB 


A skeleton DMB is created during DBD generation (DBDGEN) as part of 
the DBD. The DMB consists primarily of a description of each segment 
contained in the data bkase and information concerning the physical 
data kase description. This is contained in ACB extensions or, in the 
case of HSAM, in DTFs. The DBD is loaded into storage by the DL/I 
application control blocks creation and maintenance utility, which 
builds the DMB from the DBD created by DBDGEN. The DMB is then 
cataloged and link edited into a core image library. The DMB is moved 
to its execution-time location in the DMB pool by the application 
control blocks load and relocate module (DLZDBLMO). 


The DMB consists of the following sections: 


e A prefix section containing primarily offsets to subsections of the 
DME 


e An ACB extension. For an HISAM organizaton, there is a pair of ACB 
extensions for each data base; a KSDS ACB and an ESDS ACB. If the 
data kase contains only root segments, only the KSDS ACB extension 
is created. The ACBs are generated only when the blocks are 
loaded for execution by DLZDELMO from the information in the ACB 
extensions. 

e A DTF extension if SHSAM or HSAM for input and output file 

e A direct algorithm communication table if HDAM 

e A compression section for each compressable segment 


e An index maintenance parameter section for each secondary exit 
routine 


e A physical segment description block 


e A secondary list to describe indexed fields or logical 
relationships. 


e Field description Ltlocks describing each field in each segment 


e A tape or DASD I/O module if SHSAM or HSAM. This module is 
included by the ACB utility. 
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GENERAL STRUCTURE 


The general structure of the DMB is shown in Figure 5-3. 


Each DMB section is shown as a separate data 
area in Section 5 of this PLM, For the data 
area layout, see: 


DMB PREFIX 
DMB — DMB Prefix 


DSECT Name: DMB 


ACB EXTENSION 


DSECT Name: DMBACBXT 
ACB — ACB Extension 


DTF EXTENSION 
DSECT Name: DMBDTFXT 


DIRECT ALGORITHM COMMUNICATION TABLE HDAM Randomizing Routine 


DACS — 
DSECT Name: DMBDACS meeiiace -VabNe 
COMPRESSION SECTION HDAM/HIDAM Variable Length 
CPAC — Segment Compression/Expansion 


DSECT Name: DMBCPAC Routine 


HDAM/HIDAM User Secondary 
XMPRM — Index Suppression Routine 
Interface Table 


INDEX MAINTENANCE PARAMETERS 
DSECT Name: DMBXMPRM 


PHYSICAL SEGMENT DESCRIPTION BLOCK 


Physical Segment Description 
PSDB = Block 
DSECT Name: DMBPSDB : 
SECONDARY LIST 
SEC — Secondary List 
DSECT Name: DMBSEC 
FIELD DESCRIPTION BLOCK 
FDB — Field Description Block 


DSECT Name: FDB 


Tape or DASD I/O Module 





Figure 5-3. General Structure of DMB 
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PROGRAM SPECIFICATION BLOCK - PSB 


A PSB must be created for every user program which will run under DL/I 
control. The PSB is created in "skeleton" format (principally PCBs 
only) by PSBGEN. The PSB must be cataloged and link edited into the 
Core Image Library. The PSB is loaded into main storage by the DL/I 
Application Control Blocks Creation and Maintenance Utility program 
and expanded and completed by this utility. The expansion is 
performed by segment definition in the DBD representing the associated 
data base. The expanded PSB is link edited into the Core Image 
Library. The PSB is moved to its execution-time location in the PSB 
pool by the application control blocks load and relocate module 
(DLZDBLMO). In expanded final format, the PSB consists of the 
following parts in the order specified: 


1. PSB prefix - of which the most important part is the variable- 
length PSB list: the address list of the PCBs in the PSB. A dope 
vector table follows the PSB prefix for PL/I programs. 


2. A variable number of data base PCBs. For each data base PCB there 
is a JCB (job control block) consisting of the following parts: 


e JCB prefix 


e CSG (data set group) table. This table contains entries 
describing the data bases specifically used for this PCB. 
There are entries for all logically connected data bases, all 
primary HIDAM indexes, and a secondary index if used as the 
processing sequence. 


e Level table. This table provides memory of the last DL/I 
CALL. 


e SDB (segment description block). This block contains an entry 
for each segment to which the user has declared himself 
sensitive in the PCB. The SDB entry describes the sensitive 
segment. 


° Work area for index maintenance, variable-length segment 
support, or miscellaneous function. These are allocated only 
when required (if any user PCB directly or indirectly refers 
to an index data base). 


® PSB work areas; of variable length depending on the 
requirements of the PCBs. 
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GENERAL STRUCTURE 


The general structure of the PSB is shown in Figure 5-4. 


PSB PREFIX 


DSECT Name: PSB 


PCB DOPE VECTOR TABLE 


DSECT Name: DPPCB 


DATA BASE PCB 
DSECT Name: DBPCB 
JCB PREFIX 


DSECT Name: JCB 


One Data DSG TABLE 


BoB 
Bees ce DSECT Name: 


LEVEL TABLE 
DSECT Name: 


DSECT Name: 





Additional e 
Data Base @® REPEATED AS SHOWN ABOVE 
PCBs ® 





INDEX MAINTENANCE WORK AREA 


DSECT Name: XWORKARA 





PCB WORK AREA 


Figure 5-4. General Structure of PSB. 
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Each PSB section is shown as a 
separate data area in Section 5 of 
this PLM. For the data area layout, 


see: 


PSB 


PCB 


JCB 


DSG 


LEV 


SDB 


DPPCB — 


— PSB Prefix 


PCB Dope 
Vector Table 


Program 
— Communication 
Block 


Job 


“— Control 


Block 


_ Data Set JCB 


Group includes 
DSG, 
LEV, 
Level Table and 
~ Entry SDB 
Segment 
— Description 
Block 


Index Maintenance Work Area 


DL/I BUFFER POOL CONTROL BLOCKS 


The DL/I buffer pool control blocks provide the control information to 
manage the entire kuffer pool for the DL/I task. The buffer pool 
control blocks are as follows: 


Buffer Pool Control Block Prefix - This control block contains the 
statistics and other control information for the entire buffer 
pool. 


Subpool Information Table - This control block contains information 
for a specific subpool, including the size of the buffers in the 
subpool. There is one subpool information table for each subpool 
allocated. 


DMB Subpool Directory - This control block contains a one-byte 
subpool number relative to zero for each HDAM or HIDAM data base 
allocated. The DMB sequence number is used as an offset intc the 
DMB directory and allows a DMB to be identified with a specific 
subpool. 


Buffer Prefix Control Block - This control block contains key 
information about the contents of a specific buffer in a subpool. 
There is one buffer prefix control block for each buffer. Each 
subpool contains 2-32 buffers. 
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GENERAL STRUCTURE 


The general structure of the DL/I buffer pool control blocks is shown 
in Figure 5-5. 


Each buffer pool control block is shown as a 
separate data area in Section 5 of this PLM. 
For the data area layout, see: 


BUFFER POOL CONTROL BLOCK PREFIX 


BFPL — Buffer Poot Control Block Prefix 
DSECT Name: BFPL 
SUBPOOL INFORMATION TABLE 
DSECT Name: SUBINFTA 
SBIF — Subpool Information Table 
7 
DMB SUBPOOL DIRECTORY 
BUFFER PREFIX 
DSECT Name: BFFRDS 
BFFR — Buffer Prefix 


1/O BUFFERS 


(2-32 per subpool) 





Figure 5-5. General Structure of DL/I Buffer Pool Control Blocks 
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ACBXT -. ACB EXTENSION 


DSECT Name: 


DMBACBXT 


The ACB extension is described as part of the general structure and 
description of the data management block (DMB). The information in 
ACBXT is repeated for each data set in the DMB. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


DMBACBAD 
DMBACBAP 
DMBACBDL 
DMBACBEX 
DMBACBLC 
DMBACBLN 
DMBACBMN 
DMBACBMX 
DMBACBNL 
DM BACBNM 
DMBACBRP 
DMBACBST 
DMBACLNO 

+*DMBBESDS 
DMBBFACT 
DMBCICYL 
DMBCINV 

+ DMBCI SPL 
DMBCITRK 
DMBDTFIN 
DMBDTFOT 
DMBECB 
DMBFBASN 

+DMBFBA 
DMBFRSPC 
DMBFRSP1 
DMBHIBLK 
DMBHIRBA 
DMBINDO 

+ DMBIGNOR 

*DMBKEY 
DMBKEY LE 
DMBLRECL 

+ DMENUSE 
DMBOFLGS 

+DMBOPEN 

+DMBPSEQ 

+ DMBPUTKY 
DMBRBASN 
DMBRKP 
DMBRLBLK 
DMBSPLCT 
DMBVSBFR 
DMBVSFLG 

# DMBWCHK 


offset 
Dec (Hex) 


0(00) 

7 (07) 

6 (06) 

68(44) 
56(38) 
80(50) 
10(0A) 
8(08) 

80(50) 
60(3C) 
52 (34) 
0(00) 

60(3C) 
46 (2E) 
44 (2C) 
28(1C) 
4(04) 

35 (23) 
30(1E) 
0(00) 

4(04) 

12(0C) 
72 (48) 
46(2E) 
58(3A) 
59(3B) 
16(10) 
36(24) 
46(2E) 
34(22) 
46 (2E) 
31(1F) 
42( 2A) 
34 (22) 
34 (22) 
34(22) 
35(23) 
34€22) 
20(14) 
32 (20) 
24(18) 
48 (30) 
40 (28) 
35(23) 
46(2E) 


Flag 
Code (Hex) 


40 


80 


(See DTF extension at end of ACBXT) 
(See DTF extension at end of ACBXT) 


20 


40 


20 


10 


08 


08 
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RECORD LAYOUT - ACBXT 


offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 4 DMBACBST Start of ACB extension 

0(00) 4 DMBACBAD Address of corresponding 
ACB 

4(04) 2 DMBCINV Control interval size 

6(06) 1 DMBACBDL Delta cylinders to scan 

7(07) 1 DMBACBAP Number of root anchor 
points per control 
interval (HDAM) 

8 (08) 2 DMBACBMX Length of the largest 
segment in data set 

10 (0A) 2 DMBACBMN Length of the smallest 
segment in data set 

12(0C) 4 DMBECB VSAM ACB event control 
block (ECB) used by 
buffer handler (DLZDBHOO) 

16(10) 4 DMBHIBLK Highest control interval 
RBA 

20(14) 4 DMBRBASN RBA of last logical 
record assigned (HISAM) 
or relative block number 
of last control interval 
assigned (HD). During 
batch initialization the 
high-order byte is the 
buffer size (control 
interval size/512) 
indicator 

24(18) 4 DMBRLBLK Relative block number of 
last control interval 
written (HD) 

28(1C) 2. DMBCICYL Number of control 
intervals per cylinder 

30(1E) 1 DMBCITRK Numker of control 
intervals per track 

31(1F) 1 DMBKEYLE Key length of KSDS 

32(20) 2 DMBRKP Relative key position 

34(22) 1 DMBOFLGS Open flags 


DMBIGNOR 40 


DMBNUSE 20 
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IGN was specified for 
workfile on load 

ACB does not have 
resolved secondary index 
entries; workfile must be 
used 


offset Field/Flag Flag 


Dec(Hex) Length Name Code (Hex) Meaning 
DMBOPEN 10 The corresponding ACB is 
open 
DMBPUTKY 08 Simulate not load mode to 
VSAM 
35(23) 1 DMBVSFLG Flags 
DMBCISPL 80 Control interval split 
occurred 
DMBPSEQ 10 Sequential processing is 
possible for this KSDS 
36(24) 4 DMBHIRBA Highest RBA in present 
range of extents (HIDAM 
ESDS only) 
40(28) 2 DMBVSBFR Number of buffers to be 
used 
42(2A) 2 DMBLRECL Logical record length 
44(2C) 2 DMBBFACT Blocking factor 
46(2E) 1 DMBINDO Permanent indicators 
DMBWCHK 08 Write check option 
DMBFBA 20 FBA device suport 
DMBBESDS 4Q Blocked ESDS 
DMBKEY 80 Data set contains keys 
(Simple HISAM and SHISAM) 
47(2F) x **Reserved** 
48(30) 4 DMBSPLCT Control interval split 
count 
52(34) 4 DMBACBRP Address of RPL for this 
ACB 
56(38) 2 DMBACBLC Log count (HISAM only) 
58 (3A) 1 DMBFRSPC Distributed free space 
parameter 
59(3B) 1 DMBFRSP1 Second free space 
parameter 
60(3C) 8 DMBACBNM Data set name as in ACB 
DMBACLNO Length of version 1.0 
68 (44) 4 DMBACBEX Address of exit list for 
this ACB 
72(48) 2 DMBFBASN FBA scan value 
74 (4A) 6 **Reserved ** 
80(50) 2 DMBACBND End of ACB extension 
DBMACBLN Length of ACB extension 


(DMBACBND minus DMRACBST) 


Note: HSAM DMBs have the following DTF extension. 
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Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 


DSECT Name: DMBDTFXT 


0(00) 4 DMBDTFIN Address of HSAM input CTF 
4 (04) 4 DMBDT FOT | Address of HSAM output 
oy DIF 
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ACT .- PARTIAL REORGANIZATION ACTION TABLE 


DSECT Name: ACT 


This DSECT describes one action to be taken by either RELOAD or SCAN. 
It also defines the action to be taken by UPDATE when the record . 
created by RELOAD or SCAN is read back. It is built by the action 
table builder and is used by RELOAD, SCAN and UPDATE phases in step 2. 
Its address is held in the common area field (COMAACT). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
ACTCROW 1(01) 

ACTCRTYP 0 (00) 

ACTCSDS 5 (05) 

ACTGDEST 4 (04) 

ACTGOPTN 3(03) 

ACTLLEN 24(18) 20 
ACTOANXT 22 (16) 

ACTOCHFD . 16(10) 

ACTOCNXT 18(12) 

ACTOPRMV 12(0C) 

ACTOPUPD 14 (OE) 

ACTOSGT 6(06) 

ACTOSUPD 8(08) 

ACTOSZIE 10 (0A) 

ACTOTEST 20(14) 

ACTQOPT2 3(03) 

ACTQSRT1 4(04) 

ACTQSRT2 4 (04) 

ACTOQSRT3 4(04) 

ACTQSRT4 4 (04) 

ACTSTART 0(00) 


RECORD LAYOUT —- ACT 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 1 ACTCRTYP Action record type 
1(01) 1 ACTCROW Action row number 
2(02) 1 ** Reserved +* 
3 (03) 1 ACTGOPTN Optional action 
identifier 
ACTQOPT 2 80 Option with two 
4 (04) 1 ACTGDEST Destination indicator 
flags 
ACTQSRT1 80 Record goes to scrt 1 
ACTQSRT2 40 Record goes to sort 2 
ACTQSRT3 20 Record goes to sort 3 
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offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
ACTOSRT4 10 Record goes to sort 4 

5(05) 1 ACTCSDS Data set of moved segment 
for sort 1 

6 (06) 2 ACTOSGT Offset in SGT from which 
this is chained 

8 (08) 2 ACTOSUPD Offset in SGT for segment 
to be updated 

10(0A) 2 ACTOSZID OFFSET in SGT for z 
segment in physical pair 

12(0C) 2 ACTOPRMV Offset in prefix of 
pointer to be extracted 

14 (0E) 2 ACTOPUPD Offset in prefix of 
pointer to be updated 

16(10) 2 ACTOCHED Offset in prefix of chain 
head pointer 

18(12) 2 ACTOCNXT Offset in prefix of next 
in chain pointer 

20(14) 2 ACTOTEST Offset to be tested for 
zero or non-xero . 

22(16) 2 ACTOANXT Offset in ACT of next 
action 

24(18) 4(2) ** Reserved ** 

ACTLLEN (*-ACTSTART) length of an 
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action table entry 


ARGO -~- HLPI ARGO PARAMETERS 


DSECT Name: 


The DSECT describes the fields contained in the DL/I HLPI ARGO 
Interface Parameter list. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


*APPLPLI 
ARGO 
ARGOCCOD 
ARGOFLG1 
ARGOFLG2 
ARGOFLG3 
ARGOFNCD 
ARGOFNID 
ARGOOPTS 
ARGORELN 
ARGORMGR 
ARGOSOPT 
ARGOSTMT 
ARGO TOTN 

*CCFIRST 

*CCINFORM 

*CCLAST 

*CCLOCKED 

*CHKPCALL 

*DLETCALL 
DLZARGO 

*GNCALL 

*GNPCALL 

*GUCALL 

*INITCALL 

*ISRTCALL 

*LOADCALL 

*OPTFLDL 

*OPTOFF 

*OPTSEGL 

*OPTSEGM 

*OPTVAR 

*OPTWHERE 

*REPLCALL 

*SCHDCALL 
*TERMCALL 

*USINGPCB 


Offset 


Dec (Hex) 


we) 


ONDEORPEFWNUC ES 


(04) 
(00) 
(19) 
(02) 
(03) 
(04) 
(01) 
(00) 
(18) 
(06) 
(08) 
(1B) 
(10) 
(07) 
(19) 
(19) 
(19) 
(19) 
(01) 
(01) 
(00) 
(01) 
(01) 
(01) 
(01) 
(01) 
(01) 
(1B) 
(1B) 
(1B) 
(1B) 
(1B) 
(1B) 
(01) 
(01) 
(01) 
(18) 


Flag 
Code (Hex) 


02 
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RECORD LAYOUT —- ARGO 


Offset Field/Flag Flag 
Dec(Hex) . Length Name ___ Code (Hex) Meaning 
0 (00) 4 ARGO 
0(00) 1 ARGOFNID ARGO ID X‘00" 
1(01) 1 ARGOFNCD Function code 
INITCALL 02 Initialize call 
SCHDCALL 04 Schedule call 
TERMCALL 06 Termination call 
CHKPCALL 08 Checkpoint call 
GUCALL OA Get unique call 
GNCALL oc Get next call 
OE ** Reserved ** 
GNPCALL 10 Get next in parent call 
ISRTCALL 12 Insert call 
REPLCALL 14 Replace call 
DLETCALL 16 Delete call 
LOADCALL 18 Load call 
2(02) 1 ARGOFLG1 Argument flag 1 
3 (03) 1 ARGO FLG2 Argument flag 2 
4(04) 1 ARGOFLG3 Argument flag 3 
APPLPLI 02 Application 
program is PL/I 
5(05) 1 ** Reserved ** 
6 (06) 1 ARGORELN Relative number of 
this call 
7(07) 1 ARGOTOTN Total number of calls 
in this statement 
8(08) 8 ARGORMGR Resource manager‘s ID 
16 (10) 8 ARGOSTMT Statement identifier 
24(18) 1 ARGOOPTS Statement level options 
US INGPCB 40 Using PCB 
25(19) 1 ARGOCCOD Command codes 
CCFIRST 80 First 
CCLAST 40 Last 
CCLOCKED 20 Locked 
CCINF ROM 10 Into or from 
26(1A) 1 ** Reserved ** 
27(1B) 1 ARGOSOPT Segment options 
OPTSEGL 80 SEGLENGTH 
specified or default 
OPTWHERE 40 Where 
20 Boolean where (IMS only) 
OPTFLDL 10 Field length 
specified or default 
OPTVAR 08 Variable 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
OPTSEGM 04 Segment name present 
OPTOFF 02 Offset specified 
28(1C) 1 ** Reserved ** 
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BFFR - BUFFER PREFIX 


DSECT Name: BFFRDS 


The kuffer prefix is described as part of the general structure and 
description of the DL/I buffer pool control blocks. There is one 
buffer prefix for each buffer allocated. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec(Hex) Code(Hex) 
BFFRADDR 12(0Cc) 
BFFRCIID 0 (00) 
BFFRCIRB . 0(00) 
BFFRDCB 6(06) 
BFF RDMB 4 (04) 
* BFFREXNQ 7 (07) 02 
BFF RHOLE 30(1E) 
*BFFRLAST 27(1B) 01 
BFFRLEN 32(20) 
* BFF RLOCK 27 (1B) 40 
BFF RLOCU 10 (0A) 
*BFFRMT 7(07) 10 
BFFRNACB 26(1A) 
BFFRNCII 20(14) 
BFFRNCID 20 (14) 
BFFRNDMB 24(18) 
*BFFRNORU 27(1B) 80 
BFFRNPSF 28 (1c) 
BFFRNPSL 29 (1D) 
BFFRNPST 28(1C) 
*BFFRPNNOQ 7(07) 01 
* BFFRPRED 7 (07) 08 
BFFREST 8 (08) 
BFFRPSTF 8(08) 
BFFRPSTL 9(09) 
* BFF RREAD 7(07) 20 
*BFFRREL 27 (1B) 08 
BFF RSW 7(07) 
BFFRSW1 27(1B) 
BFFRUSCT 12 (0c) 
BFFRUSID 16 (10) 
BFFRWCBW 19(13) 
BFFRWCFW 18(12) 
* BFF RWCH 7 (07) 80 
*BFFRWERR 7 (07) 04 
*BFFRWRT 7(07) 40 
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RECORD LAYOUT - BFFR 


offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 7 BFFRCIID Control Interval 
identifier 
0 (00) 4 BFFRC IRB Control Interval REA 
4 (04) 2 BFFRDMB DMB Number 
6(06) 1 BFFRDCB ACB Number 
7007) 1 BFFRSW Flags 
BFFRWCH 80 Buffer on write chain 
BFFRWRT 40 Buffer being written 
BFFRREAD 20 Buffer being read 
BFFRMT 10 Buffer empty 
EFFRPRED 08 Buffer waiting for 
predecessor being written 
BFFRWERR 04 Buffer has permanent 
write error 
EFFREXNQ 02 Existing CI ID enqueued 
BFFRPNNQ O01 Pending CI ID enqueued 
8(08) 2 BFFRPST PST prefix numbers for 
enqueue/dequeue 
8 (08) 1 BFFRPSTF PST prefix number of the 
controlling task 
9(09) 1 BFFRPSTL PST prefix number of the 
last task in the chain of 
waiting tasks 
10(0A) 2 BFFRLOCU Log count 
12(0C) 1 BFFRUSCT Use count 
12 (0C) 4 BFFRADDR Address of buffer 
16(10) 2 BFFRUSID ID of the users who 
altered this buffer 
18(12) 1 BFFRWCFW Next lower buffer on the 
write chain 
19(13) 1 BFFRWC BW Next higher buffer on the 
write chain 
20(14) 7 BFFRNCID New control interval 
identifier 
20 (14) 4 BFFRNCII New control interval RBA 
24(18) 2 BFFRNDMB New DMB number 
26(1A) 1 BFFRNACB New ACB number 
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offset Field/Flag Flag 


Dec ( Hex) Length Name . ___ Code (Hex) Meaning 
27(18B) 1 BFFRSW1 Flags 
BFFRNORU 80 Buffer is not reusable 
BFFRLOCK 40 Buffer locked by logger 
BFFRREL 08 Buffer is released 
BFFRLAST 01 Last buffer prefix for 
this subpool 
28(1C) 2 BFFRNPST PST prefix numbers for 
enqueue/ dequeue 
28(1C) 1 BFFRNPSF PST prefix number of task 


that engueued on new cI 
ID and is first in the 
chain 


29(1D) 1 BFFRNPSL PST prefix number of task 
that enqueued on new CI 
ID and is last in the 
chain 


30(1E) 2 BFFRHOLE Length of largest space 
available in the buffer 


32(20)  BFFRLEN Length of buffer prefix 


5-24 Licensed Material - Property of IBM 


BFPL - BUFFER POOL CONTROL BLOCK PREFIX 


| DSECT Name: BFPL 


The BFPL is described as part of the general structure and descripticn 
of DL/I buffer pool control blocks. There is one buffer pool control 
block prefix that contains information for the entire buffer pool. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


BFPL 
BFPLALTR 
BF PLBKWT 
BFPLCHBK 
BFPLCHWT 
BFPLOOUT 
*BFPLEXCI 
BFPLID 
BFPLIGET 
BFPLINCO 
BFPLINMA 
BFPLINPL 
BFPL INRO 
BFPLINW1 
BF PLINW2 
BFPLISTL 
BFPLLEN 
BFPLNOW1 
BF PLNQW2 
BFPLNWBK 
BFPLOSWT 
* BFPLPECI 
BFPLPRAD 
BFPLPSIF 
BFPLPSIL 
BFPLPSI1 
BF PLRDCT 
BFPLROCO 
BFPLRQCT 
BFPLSUBCD 
BFPLSUIN 
*BFPLSUPO 
*BFPLSW00 
* BFPLSW8 0 
BF PLWERR 
BFPLWERT 


offset 
Dec (Hex) 


0(00) 
28 (1c) 
36 (24) 
48(30) 
44(2C) 
6 2 (3E) 
64 (40) 
0(00) 
56(38) 
96 (60) 
72 (48) 
20(14) 
88(58) 
88 (58) 
104 (68) 
52(34) 
136(88) 
64 (40) 
68 (44) 
40(28) 
32(20) 
64 (40) 
128 (80) 
124(7C) 
125(7D) 
120 (78) 
24 (18) 
63(3F) 
16(10) 
132(84) 
136 (88) 
64(40) 
68(44) 
68 (44) 
60 (3C) 
61 (3D) 


Flag 
Code(Hex) 


00 


04 


08 
00 
80 
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RECORD LAYOUT - BFPL 


offset Field/Flag Flag 

Dec(Hex) . Length Name Code (Hex) Meaning 

0(00) BFPL 

0(00) 4 BFPLID Buffer pool control block 

ID (BFPL) 

4 (O04) 12 ** Reserved ** 

16(10) 4 BFPLROQCT Numker of requests 
received by the buffer 
handler 

20(14) 4 BFPLINPL Number of requests 
satisfied from buffer 
pool 

24(18) 4 BFPLRDCT Number of read requests 
issued 

28(1C) 4 BFPLALTR Numker of buffer alter 
requests received 

32(20) 4 BFPLOSWT Number of writes issued 

36(24) 4 BFPIBKWT Number of blocks written 

40(28) 4 BFPLNWBK Number of new blocks 
created in pool 

44(2C) 4 BFPLCHWT Number of chained writes 
issued 

48(30) 4 BF PLCHBK Number of bklocks written 
on write chain 

52(34) 4 BFPLISTL Number of retrieves by 
key calls 

56(38) 4 BFPLIGET Number of GN calls 
received 

60 (3C) 1 BFPLWERR Number of pernanent write 
error buffers in pool 

61(3D) 1 BFPLWERT Largest number of write 
error buffers ever in 
pool 

62 (3E) 1 BFPLCOUT Number of rows/columns in 
Matrix currently in use 

63(3F) 1 BFPLROCO Mask showing available 
rows/columns in matrix 
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offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
64(40) 4 BFPLNOQW1 ENQ/DEQ workarea 1. Byte 
0 indicates the 
following: 
BFPLEXCI 00 ENQ/DEQ existing CI code 


68 (44) 


72(48) 
88 (58) 


88 (58) 
96(60) 
104 (68) 


120 (78) 


124 (7C) 
125(7D) 
126(7E) 
128 (80) 
132(84) 


[ 136 (88) 


| 136(88) 


4 
16 
16 
8 
8 

16 

4 

1 

1 

2 

4 

4 

0 


BFPLPECI 04 
BFPLSUPO 08 


BFPLNOQW2 
BFPLSWO 
BFPLSW8 

BEFPLINMA 


BFPLINW1 


BFPLINRO 
BFPLINCO 


BFPLINW2 


BFPLPSI1 


BFPLPSIF 


BFPLPSIL 


BFPLPRAD 


BFPLSUBD 


BFPLSUIN 


BFPLLEN 


0 00 
0 80 
88 
88 


ENQ/DEQ pending CI code 
ENQ/DEQ subpool code 
Bytes 1-3 contain a 
pointer to the PST prefix 
numbers of the first and 
last task waiting for the 
resource 


ENQ/DEQ workarea 2 

Mask to turn off wait 
switch 

Task waiting for matrix 
space 


Interlock detection 
Matrix 


Interlock detection 
workarea 1 


Interlock detection 
workarea 2 


Pointer to the PST prefix 
numbers of the first and 
last task waiting for 
matrix space 


PST prefix number of the 
first task waiting for 
matrix space 


PST prefix number of the 
last task waiting for 
Matrix space 

** Reserved ** 


Beginning address of the 
buffer prefix area 


Beginning address of the 
DMB subpool directory 


Beginning of the subpool 
information table entries 


Length of the buffer pool 
control block prefix 
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COM - COMMON AREA 


DSECT Name: COM 


This CSECT/DSECT describes the common area used Ly partial 
reorganization. The common area is assembled as a CSECT in the Partl1 
and Part2 control modules. In all other modules it is used as a 
DSECT. The common area is made up of the following sections: 


1. General address section 
2. Switch and data section 
3. DL/I address section 

4. File section 

5. Checkpoint section 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 

Name Dec (Hex) Code (Hex) 
COMAACT 76 (04C) 
COMABUFH 200 (0C8) 
COMACHKD 752 (2F0) 
COMACHKP 36 (024) 
COMACHXR 724 (2D4) 
COMACOM 16 (010) 
COMADBD 44 (02C) 
COMADBT 52 (034) 
COMACDIR 192 (0C0) 
COMALLI 224 (0OEO) 
COMADLII 32 (020) 
COMAERRS 24 (018) 
COMAFILE 28 (01C) 
COMAFL25 764 (2FC) 
COMAGBUF 756 (2F4) 
COMAIOWK 736 (2E0) 
COMAIPCB 728 (2D8) 
COMALMXS 732 (€2DC) 
COMALOG 196 (0C4) 
COMAMSGN 158 (O0O9E) 
COMAPLST 740 (2E4) 
COMAPMCT 720 (€2D0) 
COMAPREF 208 (ODO) 
COMAPST 188 (COERC) 
COMAREA 0 (000) 
COMARGT 84 (054) 
COMASCD 184 (0OB8) 
COMASGT 64 (040) 
COMASIOA 20 (014) 
COMASMGR 204 (OCC) 
COMASTWR 40 (028) 
COMAVTXT 164 (OA4) 
COMCTDNM 784 (310) 
COMCID 0 (000) 
COMCLIREQ 128 (080) 
COMC PROC 704 (€2C0) 
COMCPSBN 120 (078) 
COMCSDIA 154 (0O9A) 
COMCSMSG 145 (091) 
COMCSSIZ 136 (088) 
COMCSTEC 132 (084) 
COMCTRAC 876 (36C) 
COMFACTL 72 (048) 
COMFACTM 80 (050) 
COMFCKID 700 (2BC) 
COMF COML 12 (00C) 

| COMFCXPL 744 (2E8) 
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Field/Flag 


Name 


COMFCBTL 
COMFDBTM 
COMFFCBL 
COMFLCKD 
COMFPMCT 
COMFRETC 
COMFSGTL 
COMFSGTM 
COMFWRK1 
COMFWRK2 
COMFWRK3 
COMFWRK4 
COMGOUT 
COMGPART 
COMGPHAS 
COMGPHS 2 
COMGUCTL 
COMHEADC 
COMHEADD 
COMHEADP 
COMHEADR 
COMHEADV 
COMHKYLN 
COMHLACT 
COMHLDBT 
COMHLRGT 
COMHLSGT 
COMHMXPR 
COMHMXSG 
COMHNACT 
COMHNDBT 
COMHNRGT 
COMHNSGT 
COMHNSGX 
COMHPAGE 
COMLCXPL 
+ COMLDSGT 
COMLLEN 
COMLRGT 
COMOCRGT 
COMODBSN 
COMPAGEM 
+COMQBFAL 
+#COMCBKLC 
+COMQBMO F 
*COMQEMON 
*COMCBYAL 
+*COMGBYLC 
COMQCKND 
*COMQCRAP 
+*COMQDUNQ 
+*COMQFREE 
+ COMQGNDX 
*COMQGPRE 
+*COMQGRBA 
+*COMQINBF 
*COMQINTR 
*COMQINTU 
*COMQINT 2 
*COMQIPRE 
+ COMQLNEW 
+*COMQLOLD 


Offset 
Dec (Hex) 


48 
56 
760 
748 
768 
116 
60 
68 
168 
172 
176 
180 
129 
131 
705 
710 
130 
987 
1010 
1025 
908 
951 
112 
102 
90 
106 
94 
98 
110 
104 
92 
108 
96 
100 
1029 
772 
792 
908 
88 
706 
708 
1031 
128 
128 
128 
128 
128 
128 


128 
130 
128 
128 
128 
128 
710 
128 
128 
128 
128 
128 
128 


(030) 
(038) 
(2F8) 
(2E8) 
(300) 
(07 4) 
(03C) 
C044) 
(OA8) 
(OAC) 
(OBO) 
(OB4) 
(081) 
(083) 
(2C1) 
(2C6) 
(082) 
(3DB) 
(3F2) 
(401) 
(38C) 
(3B7) 
(070) 
(066) 
(05A) 
(06A) 
(05E) 
(062) 
(06E) 
(068) 
(05C) 
(06C) 
(060) 
(06 4) 
(405) 
(304) 
(318) 
(38C) 
(058) 
(2C2) 
(2c4) 
(407) 
(080) 
(080) 
(080) 
(080) 
(080) 
(080) 


(080) 
(082) 
(080) 
(080) 
(080) 
(080) 
(2c6) 
(080) 
(080) 
(080) 
(080) 
(080) 
(080) 
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Flag 
Code (Hex) 


09 


5-29 


Field/Flag Offset Flag 


Name Dec(Hex) Code (Hex) 
*COMOQNDBR 130 (082) 10 
*COMONPSB 129 (081) 01 
*COMQOPTN 705 (2C1) 02 
*COMQPHSC 704 (2c0) 02 
* COMQPHSO 704 (2c0) 03 
* COMOPHUD 704 (2C0) 04 
*COMCPHUR 704 (2C0) 01 
*COMQRIP 131 (083) 02 
* COMQORK EY 128 (080) 08 
* COMORSTR 128 (080) 14 
*COMORSTU 128 (080) 12 
*COMCSALL 129 (081) 80 
| *comQscan 705 (2C1) 80 
* COMOSNON 129 (081) 20 
*COMQOSPOF 130 (082) 20 
*COMQSPUS 130 (082) 40 
*COMQSRT1 705 (2c1) 40 
* COMOSRT2 705 (2C1) 20 
*COMQSRT3 705 (2C1) 10 
*COMQSRT4 705 (2C1) 08 
*COMQSTP1 131 (083) 80 
* COMOSTP 2 131 (083) 40 
*COMQSUMM 129 (081) 4Q 
*COMQULHB 128 (080) OE 
| *COMQUPDT 705 (2C1) 04 
* COMOQUPIX 705 (2C1) 01 
*COMQXRMA 128 (080) OF 
COMRHIPT 220 (ODC) 
COMRLOPT 216 (0D8) 
COMRLSEG 212 (0D4) 
COMSFLO1 232 (0E8) 
COMSFLO2 268 (10C) 
COMSFL03 304 (130) 
COMSFLO4Y 340 (154) 
COMSFL05 376 (178) 
COMSFLO6 412 (19C) 
COMSFL07 448 (1C0) 
COMSFLO0O8 484 (1E4) 
COMSFLO09 520 (208) 
COMSFL10 556 (22C) 
COMSFL11 592 (250) 
COMSFL12 628 (274) 
COMSFL13 664 (298) 
COMSTART 0 (000) 
COMXBR14 114 (072) 
| COMXDGID 792 (318) 
offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
| 0 (000) 0 COMAREA 
0(000) 4 '  COMSTART 
0(000) 1 COMCID Identifier 


GENERAL ADDRESS SECTION 
12(00C) 4 COMFCOML Length of common 


16(010) TY COMACOM Address of common 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 

20(014) 4 COMASIOA Address of an I/O area 
for GU, GN calls 

24(018) 4 COMAE RRS Entry point for error 
message writer 

28 (01C) 4 COMAFILE Entry point of file 
Manager 

32 (020) 4 COMADLII Entry point of DL/I 
interface module 

36(024) 4 COMACHKP Entry point of checkpoint 
processor 

40 (028) 4 COMASTWR Entry point of statistics 
writer 

44(2C) 4 COMADBD Address of data hbase 
block 

48 (30) 4 COMFDBTL Length of data base table 
(DBT) 

52(34) 4 COMAD BT Address of DBT 

56(38) 4 COMFDBTM Maximum size of DBT 

60 (3C) 4 COMFSGTL Length of segment table 
(SGT) 

64(40) 4 COMAS GT Address of SGT 

68(44) 4 COMFSGTM Maximum size of SGT 

72 (48) 4 COMFACTL Length of action table 
(ACT) 

76(4C) 4 COMAACT Address of ACT 

80(50) 4 COMFACTM Maximum size of ACT 

84 (54) 4 COMARGT Address of RGT 

88(58) 2 COMLRGT Length of range table 
(RGT) 

90(5A) 2 COMHLDBT Length of a DBT entry 

92(5C) 2 COMHNDBT Number of CBT entries 

94 (5E) 2 COMHLSGT Length of a SGT entry 

96 (60) 2 COMHNSGT Number of SGT entries 

98 (62) 2 COMHMXPR Length of longest prefix 
in data base #1 

100 (64) 2 COMHNSGX Number of SGX entries 

102 (66) 2 COMHLACT Length of an ACT entry 
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Offset 


Field/Flag Flag 


Dec (Hex) | Length Name __Code (Hex) Meaning 
104 (68) 2 COMHNACT Number of ACT entries 
106 (6A) 2 COMHLRGT Length of an RGT entry 
108 (6C) 2 COMHNRGT Numker of RGT entries 
110(6E) 2 COMHMXSG Length of data part of 
longest segment 
112 (70) 2 COMHKYLN Length of current HIDAM 
KEY 
SwWIiItTtcH AND DATA SECTION 
114 (72) 2 COMXBR14 A BR 14 instruction 
116(74) 4 COMFRETC Level of most severe 
error to date 
120 (78) 8 COMCPSBN Name to be given to 
generated PSB 
128(80) 1 COMCIREQ DLI common services 
; request code 
COMQGPRE 01 Get prefix address of. 
last segment retrieved 
COMQI PRE 02 Get prefix address of 
last segment inserted 
COMQBKLC 03 Locate block 
COMQBYLC 04 Byte locate 
COMQBYAL 05 Locate byte for updating 
' COMQGRBA 06 Get RBA of last segment 
retrieved/inserted 
COMCF REE 07 Free space occupied by a 
segment 
COMQRKEY 08 Find key of HDAM root at 
- block N 
COMQLOLD 09 Log data before change 
COMQLNEW OA Log data after change 
COMQBMON OB Turn bit maps on 
COMQBMOF oc Turn bit maps off 
COMQBFAL OD Mark buffer altered 
COMQULHB OE Set LO and HI block 
number for unload 
COMQX RMA OF Swap randomizer entry 
points 
COMOINT2 10 Initialize for part 2 
COMQINTU 11 Initialize for unload 
COMQRSTU 12 Reset after unload 
COMQINTR 13 Initialize for relcad 
COMORSTR 14 Reset after reload 
COMQCRAP 15 Clear HDAM root anchor 
point 
COMQGNDX 16 Retrieve an index record 
129 (81) 1 COMGOUT Output control switches 
COMQSALL 80 Full statistics required 
COMQSUMM 40 Summary of statistics 
required t+0 
COMQS NON 20 No statistics to be 
produced 
COMQNPSB 01 No PSB to be generated 
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Offset Field/Flag Flag 
Dec (Hex) Length Name -Code (Hex) Meaning 
130 (82) COMGUCTL Update process control 
switches 
COMQD UNQ 80 Q record update is 
complete 
COMQS PUS 40 Spill is in use 
COMQSPOF 20 Spill overflow has 
unprocessed records 
COMQNDBR 10 No database record in 
HDAM range 
131 (83) COMGPART Part in progress 
indicator 
COMQSTP1 80 Part 1 is in progress 
COMQSTP2 40 Part 2 is in progress 
COMQRIP 02 RESTART in progress 
132 (84) COMCSTEC SORT technique to be used 
136(88) COMCSSIZ Main storage to be used 
by SORT 
145 (91) COMCSMSG SORT output message level 
154 (9A) COMCSDIA SORT diagnostic option 
158 (9E) COMAMSGN Error message numner to 
be printed 
164 (A4) COMAVTXT Address of variable text 
for message 
168(A8) COMFWRK1 First work word 
172(AC) COMFWRK2 Second work word 
176 (BO) COMFWRK3 Third work word 
180 (B4) COMFWRK4 Fourth work word 
DL/ ADDRESS SECTION 
184(B8) COMASCD Address of system 
contents directory (SCD) 
188(BC) COMAPST Address of partition 
specification block 
192 (CO) COMADDIR Address of data kase 
directory 
196(C4) COMALOG Address of data base 
change logger 
200 (C8) COMABUFH Address of buffer handler 
router 
204(cC) COMAS GR Address of space manager 
208 (DO) COMAPREF Address of prefix of last 


segment retrieved 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 

212(D4). 4 COMRLSEG RBA of last segment 

retrieved 

216 (D8) 4 COMRLOPT Value of root PTB pointer 
at start of range 

220 (DC) 4 COMRHIPT Value of root PTF pointer 
at end of range 

224 (EO) 4 COMADLI Address of ASMTDLI 

228 (E4) 4 ** Reserved ** 


FILE SECTION 


232 (OE8) 36 COMSFLO1 
268 (10C) 36 COMSFLO2 
304 (130) 36 COMSFLO3 
340 (154) 36 COMSFLO4 
376(178) 36 COMSFLO5 
412190) 36 COMSFL06 
448 (1C0) 36 COMS FL07 
484 (1E4) 36 COMSFLO8 
520 (208) 36 COMSFLO9 
556 (22C) 36 COMSFL10 
592 (250) 36 COMSFL11 
628 (274) 36 COMSFL12 
664 (298) 36 COMSFL13 


CHECKPOINT 


SECTION 


FCB for PRWRKF1 
FCB for PRWRKF2 
FCB for PRWRKF3 
FCB for PRWRKF4 
FCB for PRWRKF5 
FCB for PRWRKF6 
FCB for PRWRKF7 
FCB for PRWRKF8 
FCB for PRWRKF9 
FCB for PRWRKFA 
FCB for SYSPRINT 
FCB for SYSPUNCH 


FCB for SYSIN 


Contains switches and data to be checkrpointed and recovered during 
restart. Also includes the parameter list of user areas to be 


checkpointed for DL/I. 


700 (2BC) 4 COMFCKID 


704 (2C0) 1 COMCPROC 
COMQPHUR 
COMQPHSC 
COMQP HSO 
COMQP HUD 
705(2C1) a COMGPHAS 
COMQSCAN 
COMQSRT1 
COMQS RT2 
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ID of last DL/I 
checkpoint taken 


PART2 phase in process 
indicator 
UNLOAD/RELOAD in progress 
SCAN in progress 
SORT in progress 
UPDATE in progress 


Phase GO/NOGO switches 
SCAN required 

SORT 1 required 

SORT 2 required 


Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
COMQSRT3 10 SORT 3 required 
COMQSRT4 08 SORT 4 required 
COMQUPDT 04 Update required 
CCMQOPTN 02 option selection required 
COMQUPIX 01 Only index update 
required 
706(2C2) 2 COMOCRGT RGT offset for range 
being processed 
708 (2C4) 2 CCMODBSN DBT offset for DB keing 
scanned 
710 (2C6) 1 COMGPHS2 restart flags 
COMQINBF 80 record in kuffer for 
update 
711 (2C7) 1 ** Reserved ** 
712 (2C8) 8 ** Reserved ** 
COMQC KND "*" end of area to be 


checkpointed 


From COMFCKID to here is checkpoint data to be restored by DL/I 
extended restart. The fields that follow are the list of areas to 
checkpoint and recover. This list is passed to DL/I. 


720 (2D0) 4 COMAPMCT > parameter count 

724 (2D4) 4 COMAC HXR > EBCDIC function code 
(CHKP OR XRST) 

728 (2D8) 4 COMAIPCB > I/O PCB 

732 (2DC) 4 COMALMXS > Fullword value of 
COMHMXSG or 2K 

736 (2E0) 4 COMA IOWK > 12 Byte work area 

740 (2E4) 4 COMAPLST > Lengths and addresses 
to be checkpointed 

744 (2E8) 4 COMFCXPL Length of checkpoint list 

748 (2EC) 4 COMFLC KD Length of conron 
checkpoint data 

752(2F0) 4 COMAC HKD > checkpoint area origin 

756(2F4) 4 COMAGBUF > origin of combined GSAM 
I/O areas 

760 (2F8) 4 COMFFCBL Length of PRWRKF2,3,4,5 

764 (2FC) 4 COMAFL25 > FCBS for PRWRKF2,3,4,5 

768 (300) 4 COMFPMCT FW parameter count list 

772 (304) 4 COMLC XPL Equate for end of 
parameter list 

772 (304) 12 ** Reserved ** 
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Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 


End of checkpoint restart parameter list 


DATA SET GROUP TABLE 


784 (310) 4 
784 (310) 8 COMCDDNM DDNAME for a data set 
group to reorganize 
792 (318) 1 COMXDGID DL/I data set group ID 
code 
COMLDSGT "*-COMCDDNM" length of a 
DSG table entry 
793 (319) 729 Space for 9 more DSG 
entries 
874 (36A) 2 ** Reserved ** 
876 (36C) 16 COMCTRAC Trace of last 16 request 
to DLI services 
892 (37C) 16 ** Reserved ** 
COMLLEN "*-COMSTART" length of 


common 


PRINT HEACER LINE 


900 (384) 121 COMHEADR 

908 (38C) 43 

951 (3B7) 36 COMHEADV 

987 (3DB) 23 COMHEADC 

1010 (3F2) 15 ' COMHEADD 

1025 (401) 4 COMHEADP 

1029 (405) 2 COMHPAGE Page number packed 
1031 (407) 4 COMPAGEM 
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CPAC - HDAM/HIDAM VARIABLE LENGTH SEGMENT COMPRESSION/EXPANSION 
ROUTINE INTERFACE TABLE 


DSECT Name: DMBCPAC 


This table is described as part of the general structure and 
description of the data management block (DMB). There is one entry 
for each compressikle segment in the DMB. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
DMBCPCNM 0(00) 

DMECPCSG 8 (08) 

DMBCPEP 16(10) 

DMBCPFLG 20(14) 

*DMBCPKEY 20(14) 02 
DMBCPLNG 26 (1A) 

*DMBCPNIT 20(14) 01 
DMBCPRES 28(1C) 

*DMBCPSEQ 20(14) 08 
DMBCPSGL 24(18) 

DMBCPS QF 21 (15) 

DMBCPSOL 22 (16) 

*DMBCPVLR 20(14) 04 
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RECORD 


LAYOUT - CPAC 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code( Hex) Mean ing 
0(00) 8 DMBCPCNM Segment Name 
8 (08) 4 DMBCPCSG Compression routine name 
16(10) 4 DMBCPEP Entry point of 
compression routine 
20(14) 1 DMBCPFLG Flag byte 
DMBCPSEQ 08 Segment has a sequence 
field defined 
DMBC PVLR 04 Segment is variable 
length 
DMBCPKEY 02 Segment has key 
compression option 
DMBCPNIT 01 Initialization and 
termination processing 
required | 
21(15) 1 DMBC PSQF Length of key field minus 
1 
22(16) 2 DMBCPSQL Offset to sequence field 
24(18) 2 DMBCPSGL Maximum segment length 
26 (1A) 2 DMBCPLNG Total length of CSECT - 
fixed lengths, constants, 
plus user data 
28(1C) 4 DMBCPRES Reserved for 
intialization 
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DACS - HDAM RANDOMIZING ROUTINE INTERFACE TABLE 


DSECT Name: DMBDACS 


The HDAM randomizing routine interface table is described as part of 
the general structure and description of the data management block 


(DMB). 


ALPHABETIC LIST OF FIELD/ FLAG NAMES 


Field/Flag 
Name 


DMBDABLK 
DMBDABYC 
DMBDABYM 
DMBDACP 
DMBDAEP 
DMBDAKL - 
DMBDANME 
DMBDARAP 
DMBDASZE 


. Offset 
Dec (Hex) 


-16(10) 
24 (18) 
20 (14) 
28(1C) 
9(09) 
8 (08) 
0 (00) 
14 (0E) 
12(0C) 


RECORD LAYOUT - DACS 


offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0 (00) 8 DMBDANME Name of address 
conversion algorithm load 
module 

8(08) 1 DMBDAKL Root Key length minus 1 

9(09) 3 DMBDAEP Entry point to conversion 
module 

12(0C) 2 DMBDASZE Size of this DSECT 

14(0E) 2 DMBDA RAP Number of root anchor 
pointers per block 

16(10) 4 DMBDABLK Number of highest Llock 
directly addressable 

20(14) 4 DMBDAB YM Maximum number of bytes 
per root before overflow 
outside of directly 
addressable area 

24(18) 4 DMBDABYC Current number of bytes 
consecutively inserted or 
loaded under root 

28(1C) 4 DMBDAC P Result of last address 


conversion 
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DBT.- DATA BASE TABLE 


DSECT Name: DBT 


This DSECT describes the data bases needed for the partial 

reorganization process. It is built during the DBD analysis phase and 
used by all subsequent phases in PART1 and PART2. Its address is held 
in the common area field (COMADBT). : 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code(Hex) 
DBTADBD 8 (008) 

DBTADMB 36 (024) 

DBTAJCB 16 (010) 

DBTAPCB 12 (00C) 
DBTASJCB 28 (01C) 
DBTASPCB 24 (018) 

DBTCID 4&8 (030) 

DBTCKEY 50 (032) 

DBT CNAME 0 (000) 
DBTFRASZ 40 (028) 
DBTGFLAG 49 (031) 
DBTHDMBN 46 (02E) 
DBTHRAPB 44 (02C) 
DBTHSI21 58 (03A) 

DBTLLEN 588 

DBTOSGT 78 (O4E) 
DBTQHDAM 49 (031) 08 
DBTQHIDM ; 49 (031) 04 
DBTQHISM 49 (031) 10 
DBTQ SCAN 49 (031) 80 
DBTQSOPT 49 (031) 40 
DBTQVSAM 49 (031) 20 
DBTQXPRI 49 (031) 02 
DBTQXSEC | 49 (031) O1 


RECORD LAYOUT - DBT 


offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(000) 4 DBTSTART 
0(000) 8 DET CNAME Data base name 
8(008) 4 DBTADBD Address of loaded DMB or 
DBD 
12(00C) 4 DETAPCB Address of primary PCB 
16(010) 4 DBETAJCB Address of JCB for 


primary PCE 
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20(014) 
24(018) 


28(01C) 


32(020) 
36(024) 


40(028) 
44 (02C) 
46(02E) 


48 (030) 
49(031) 


50 (032) 
58 (03A) 
60 (03C) 


78 (O4E) 


588 (24C) 


18 


510 


4 


DETAS PCB 


DETASJ CB 


DETADMB 


DETFRASZ 
DETHRAPB 
DBTHDMBN 


DBTCID 
DETFLAG 
DETOSCAN 
DETQSOPT 
DETQVSAM 
DBTQHISM 
DBTQHDAM 
DBTQHIDM 
DBTQXPRI 


DBTQXSEC 


DBTCKEY 


DBTHSIZ1 


DBTOSGT 


DBTLLEN 


80 
40 
20 
10 
08 
04 
02 


01 


** Reserved ** 


Address of second PCB for 
SCAN 


Address of JCB for 
secondary PCB 


** Reserved ** 
Address of DMB 


Number of blocks in root 
addressable area 


Number of root anchor 
points per block 


DMB number for this data 
base 


Data base internal ID 
DBT flag byte 


Scan required, nct 
completed 

Optional scan required 
Access method is VSAM 
Entry is for HISAM data 
base 

Entry is for HDAM data 
base . 

Entry is for HIDAM data 
base 

Entry is for HIDAM prime 
index part 

Entry is for secondary 
index data base 


Name of key field for 
root segment 


Block sizs for first data 
set group 


Block sizes for 9 more 
data set groups 


Offsets in SGT for 
segments in this data 
base 

Force fullword alignment 


*-DBTSTART length of a 
DBT entry 
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DDIR - DMB DIRECTORY 


DSECT Name: DLZDDIR 


The DMB directory contains an entry for every DMB (data management 
block) that can be accessed under DL/I control. The DMB directcry is 
part of the DL/I nucleus and is created during DL/I system definition - 
for online processing. The start address of the directory (SCDDLIDM) 
and entry length (SCDDLIDL) are contained in the system contents . 
directory (SCD). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
DDIRADDR 8 (08) 
*DDIRBAD 19 (13) 01 
DDIRCNT 12 (0C) 
DD IRCODE 18 (12) 
DDIROD2 19 (13) 
DDIRDMBL 13 (OD) 
*DDIREXCL 19 (13) 10 
*DD IREXSD 19 (13) 08 
*DDIRGRP 19 (13) 02 
* DDIRHSAM 19 (13) 20 
*DDIRINOP 18 (12) 20 
*DD IRKBRQ 18 (12) 10 
DDIRLEN 24 (18) 
*DDIRNDMB 19 (13) 80 
*DDIRNOSC 18 (12) 04 
*DDIRNOUP 18 (12) 01 
*DDIRNRAN 19 (13) 40 
DDI RNUMB 16 (10) 
*DDIROPEN 18 (12) 40 
DDIRPPST 21 (15) 
*DDIRSECL 18 (12) 80 
DDIRSYM 0 (00) 
DDIRVSRT 20 (14) 
*DDIRWAIT 18 (12) 08 
*DDIR1GRP 19 (13) 04 
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RECORD LAYOUT - DDIR 


offset Field/Flag Flag 
Dec(Hex) Length Name Code (Hex) Meaning 
0(00) 0 CDIR Label to establish entry 
address 
0(00) 8 DDIRSYM DMB name - converted from 
DBDNAME supplied during 
DBDGEN 
8 (08) 4 DDIRADDR DMB address 
12(0C) 1 DDIRCNT Number of users scheduled 
for this DMB 
13(0D) 3 DDIRDMBL Storage required for this 
DMB 
16(10) 2 DDIRNUMB DMB number of this DMB 
18(12) 1 DDIRCODE DMB code 
DDIRSECL 80 Security locked 
DDIROPEN 40 At least one ACB is 
opened 
DDIRINOP 20 DMB to be opened during 
online initialization or 
during start call 
CDIRKBRQ 10 Buffer pool space 
required for this KSDS 
DDIRWAIT 08 System task waiting for 
zero DDIRCNT 
DDIRNOSC 04 Do not schedule this DMB 
because it is stopped 
DDIRNOUP 01 No PSBs referencing the 
DMB with other than GO or 
GOP PROCOPT were loaded 
19(13) 1 DLDIRCOD2 DMB code Lyte 2 
DD IRNDMB 80 DMB not present in 
library 
DDIRNRAN 40 Requested randomizing 
module not present in 
library 
DDIRHSAM 20 This DMB for HSAM 
DDIREXCL 10 This DMB keing used 
exclusively 
CDIREXSD 08 Exclusive control 
required for scheduling 
DDIR1GRP 04 DMB first in shared index 
DDIRGRP 02 DMB belongs to shared 
index 
DDIRBAD 01 DMB initializaticn failed 
20 (14) 1 DDIRVSRT R15 VSAM return code 
21(15) 3 DDIRPPST PPST address in DMB is 
used exclusively 
24(18) DDIRLEN Length of one DDIR entry 
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DIB - DL/I INTERFACE BLOCK 


DSECT Name: DIB 


This CDSECT describes the HLPI DL/I system interface block fields. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec(Hex) . Code (Hex) 
DIBCNTAD 144 (090) 

DIBCOUNT 100 (064) 

DIBEIPAD 8 (008) 

DI BGPATH 110 (06E) 40 
DLBHLPIA 140 (08C) 

DLBID 0 (000) 

DIBIO 88 (058) 

DIBIOSIZ 92 (05C) 

DIBLUDIB 136 (088) 

DIBMSG 124 (07C) 

DIBMSGRC 132 (094) 

DIBMSGSC 128 (080) 

DIBNOPCB 112 (070) 

DIBPARM 144 (090) 

DIBPARMA 184 (0B8) 

DIBPARMB 188 (OBC) 

DI BPARMC 192 (0C0) 

DIBPARMD 196 (0C4) 

DIBPARME 200 (0C8) 

DIBPARMF 204 (0CcC) 

DIBPARMG 208 (ODO) 

DIBPARMH 212 (O0D4) 

DIBPARMI 216 (0D8) 

DIBPARM1 148 (094) 

DIBPARM2 152 (098) 

DIBPARM3 156 (09C) 

DIBPARM4 160 (0A0) 

DIBPARM5 164 (0A4) 

DIBPARM6 168 (0A8) 

DIBPARM7 172 (OAC) 

DIBPARM8 176 (OBO) 

DIBPARM9 180 (0OB4) 

DIBPATHC 108 (06C) 

DIBPATHP 120 (078) 

DIBPCBAD 84 (054) 

DIBPCBNO 116 (074) 

DIBPRCNT 104 (068) 

DIBPSIZE 96 (060) 

DIBPSPLI 110 (06E) 80 
DIBRBKWD 12 (00C) 10 
DIBREGSV 12 (00C) 

DIBRERC 12 (00C) 18 
DIBRTNCD 114 (072) 

DIBS 0 (000) 

DIBSFLAG 110 (06E) 

DIBSLEN 220 (0DC) Dc 
DIBSSAS 160 (0A0) 

DIBTOTN 111 (0O6F) 

DLZSDIB 0 (000) 
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RECORD LAYOUT ~- DIB 


offset Field/Flag Flag 
Dec(Hex) Length Name Code (Hex) Meaning 
0 (000) DLZSDIB 
0(000) DIBS System DIB 
0(000) DIBID DIB identifier ‘DLZSDIB" 
8 (008) DIBEIPID EXEC interface program 
Address (batch/MFPS only 
12(00C) DIBREGSV Register save area 
DIBRBKWD "“DIBREGSV+4" SAVEAREA 
backward pointer 
DIBRERC "DIBREGSV+12" Savearea 
for registers 14 through 
12 
84 (054) DIBPCBAD PCB address list address 
88(058) DIBIO Address of EIP common 1/0 
area 
92 (05C) DIBIOSIZ Size of EIP common I/0 
area 
96(060) DIBPSIZE I/O area size required on 
call 
100 (064) DIBCOUNT DL/I call parameter count 
104 (068) DIBPRCNT Previous get path call 
DL/I parameter ccunt 
108 (06C) DIBPATHC Data transfer segment 
count 
110 (06C) DIBSFLAG Flag byte 
DIBPSPLI 80 PSB generated for PL/I 
program (online only) 
DIBGPATH 40 Previous call was a get 
path call 
111 (06F) DIBTOTN Number of calls on 
previous get path call 
112 (070) DIBNOPCB Maximum PCB index 
114 (072) DIBRTNCD Falling return code 
116 (074) DIBPCBNO PSB number for current 
call 
118(076) ** Reserved ** 
120 (078) DIBPATHP Address of path call 
header control blocks 
124 (07C) DIBMSG Address of message number 
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Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

128 (080) 4 DIBMSGSC Address of DL/I status 
code 

132(084) 4 DIBMSGRC Address of failing return 
code address of statement 
identifier 

136(088) 4 DIBLUDIB Address of last user DIB 

140 (08C) 4 DIBHLPIA Address of HLPI parameter 
list 

144 (090) 4 DIBPARM Start of call parameter 

list 

144 (090) 4 DIBCNTAD Address of parameter 
count 

148(094) 4 DIBPARM1 PARM 1 = A(function) 

152 (098) 4 DIBPARM2 PARM 2 = A(PCB) 

156(09C) 4 DIBPARM3 PARM 3 = A(IOAREA) 

160 (OA0) 4 DIBSSAS Start of SSAS 

160 (0A0) 4 DIBPARM4 PARM 4 = A(SSA1) 

164 (OA4) 4 DIBPARM5 PARM 5 = A(SSA2) 

168 (0A8) 4 DIBPARM6 PARM 6 = A(SSA3) 

172 (QAC) 4 DIBPARM7 PARM 7 = A(SSA4) 

176 (0B0) 4 DIBPARM8 PARM 8 = A(SSA5) 

180 (0B4) 4 DIBPARM9 PARM 9 = A(SSA6) 

184 (0B8) 4 DIBPARMA PARM 10 = A(SSA7) 

188 (OBC) 4 DIBPARMB PARM 11 = A(SSA8) 

192 (0CO) 4 DIBPARMC PARM 12 = A(SSA9) 

196(0C4) 4 DIBPARMD PARM 13 = A(SSA10) 

200 (0C8) 4 DIBPARME PARM 14 = A(SSA11) 

204 (OCC) 4 DIBPARMF PARM 15 = A(SSA12) 

208 (ODO) 4 DIBPARMG PARM 16 = A(SSA13) 

212 (0D8) 4 DIBPARMH PARM 17 = A(SSA14) 

216 (ODC) 4 DIBPARMI PARM 18 = A(SSA15) 

220 (ODC) 4 Length if fullword 
multiple 

DIBSLEN "*-DIBS" Length of system 
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DMB_- DMB PREFIX 


DSECT Name: 


The DMB prefix is described as part of the general structure and 
description of the data management block (DMB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


DMBDALGR 
+DMBHD 
+*DMBHI 
+DMBHSAM 
+*DMBIMSC 
+DMBISAM1 

DMBLDDCB 

DMBLENTE 
+ DMBNDEX 

DMBNREF 

DMBORG 

DMBPDATA 

DMBPFLG 

DMBPPRLN 

DMBPPRND 

DMBSECTB 
+DMBSHIS 

DMBSIZE 
+DMBSSAM 
+#DMBV11 


Offset 
Dec (Hex) 


12(0c) 
6 (06) 
6 (06) 
6 (06) 
10(0A) 
6 (06) 
7(07) 
2(02) 
6 (06) 
12(0C) 
6 (06) 
8 (08) 
10(0A) 
16 (10) 
16 (10) 
4 (04) 
6 (06) 
0 (00) 
6 (06) 
0(00) 


Flag 
Code (Hex) 


01 


04 
80 
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RECORD LAYOUT ~- DME 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 2 DMBSIZE CMB size 
CMBV11 80 CL/I version 1.1 or later 
2(02) 2 CMBLENTB Offset from DMB to first 
PSDB (DMBPSDB) 
4(04) 2 DMBSECTB Offset from DMB tc end of 
PSDBs + 1 
6 (06) 1 CMBORG DMB organization 
DMBSHIS O1 Simple HISAM 
DMBISAM1 02 HISAM 
DMBSSAM 04 Simple HSAM 
CMBHSAM 05 HSAM 
DMBHD 06 HDAM 
CMBHI 07 HIDAM 
DMBNDEX 08 Index data kase 
7(07) 1 DMBLDDCB ACB number (minus 1) of 
sequential data set used 
to write index records cn 
data kase load 
8(08) 2 . DMBPDATA Length of system data in 
index data kase 
(protected) 
10(0A) 1 DMBPFLG Flag byte 
DMBIMSC 80 IMS compitakility required 
11 (OB) 1 ** Reserved ** 
12(0C) 1 DMBNREF Number of entries in 
external reference table 
12(0C) 4 CMBCALGR Address of direct 
algorithm communication 
table if HDAM (DMBDACS); 
LRECL nunrker if HSAM — 
16(10) DMEPPRNC End + 1 of CMB prefix. 
This is also the address 
of the first ACB extensicn 
(DMBACBXT ) 
16(10) DMBPPRIN Length of DNB prefix 
(DMBPPRND minus DMB) 
iva 
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DPPCB —- PCB DOPE VECTOR TABLE 


DSECT Name: 


DPPCB 


The PCB dope vector table is described as part of the general 
structure and description of the program specification block (PSB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code(Hex) 
DPP CEDBD 0(00) 
DPPCBJCB 32 (20) 
DPPCBKFD 52 (34) 
DPPCBLEV 8(08) 
DPPCBLKY 44(2C) 
DPPCBPRO 28 (18) 
DPPCBSFD 36 (24) 
DPPCESTC 16(10) 
DPPCPNSS 48(30) 
RECORD LAYOUT - DPPCB 
offset 
Dec(Hex) _ Length Field Name Meaning 
0 (00) 4 DPPCBDBL The address of the location 
that contains DBPCBDBD 
4(04). 2 Maximum Length Maximum length: Halfword 
kinary number which specifies 
number of storage units 
allocated for the string; byte 
count if character, bit count 
if bit 
6 (06) 2 Current length Current length: Halfword 
binary number which specifies 
the number of storage units, 
within the maximum length, 
currently occupied by the 
string 
8 (08) 4 DPPCBLEV The address of the location 
that contains DBPCBLEV 
12(0C) 2 Maximum length Maximum length: Halfword 


binary number which specifies 
number of storage units 
allocated for the string; byte 
count if character, bit count 
if bit 
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offset 


Dec(Hex) Length Field Name Meaning 
14 (OE) 2 Current Length Current length: Halfword 


16(10) 4 DPPCBSTC 
20(14) 2 Maximum length 
22(16) 2 Current Length 
24(18) 4 DPPCBPRO 
28(1C) 2 Maximum length 
30(1E) 2 Current Length 
32(20) 4 DPPCBJCB 
36(24) 4 DPPCBSFD 
40 (28) 2 Maximum length 
42(2A) 2 Current Length 
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binary number which specifies 
the number of storage units, 
within the maximum length, | 
currently occupied by the 
string 


The address of the location 
that contains DBPCBSTC 


Maximum length: Halfword 
binary number which specifies 
number of storage units 
allocated for the string; byte 
count if character, bit count 
if bit 


Current length: Halfword 
binary number which specifies 
the number of storage units, 
within the maximum length, 
currently occupied by the 
string 


The address of the location 
that contains DBPCBPRO 


Maximum length: Halfword 
binary number which specifies 
number of storage units 
allocated for the string; byte 
count if character, bit count 
if bit 


Current length: Halfword 
binary number which specifies 
the number of storage units, 
within the maximum length, 
currently occupied by the 
string 


The address of the location 
that contains DBPCBJCR 


The address of the location 
that contains DBPCBSFD 


Maximum length: Halfword 
binary number which specifies 
number of storage units 
allocated for the string; byte 
count if character, bit count 
if bit 


Current length: Halfwcrd 
binary number which srecifies 
the number of storage units, 
within the maximum length, 
currently occupied by the 
string 


IBM 


Offset 


Dec (Hex) Length Field Name Meaning 

44(2C) 4 DPPCBLKY The address of the location 
that contains DBPCBLKY 

48 (30) 4 DPPCPNSS The address of the location 
that contains DBPCBNSS 

52(34) 4 DPPCB KFD The address of the location 
that contains DBPCBKFD 

56(38) 2 Maximur length Maximum length: Halfword 
binary number which specifies 
number of storage units 
allocated for the string; byte 
count if character, bit count 
if bit 

58 (3A) 2 Current Length Current length: Halfword 


binary number which specifies 
the number of storage units, 
within the maximum length, 
currently occupied by the 
string 
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DSG.- DATA SET GROUP 


DSECT Name: DSG 


The DSG is described as part of the general structure and description 
of the program specification block (PSB). 


Note: With the exception of the first three characters of each 
field/flag name (DSG instead of JCB) the layout of the data set group 
is identical to the layout of the "DSG Section" of the job control 
block (JCB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
*DSGBLDEL 15(0F) 80 
DSGBOFF 12(0C) 

* DSGCOMMD 16 (10) 02 
*DSGCONST 15(0F) 20 
* DSGDATX 16(10) 40 
DSGCDCBA 0(00) 

DSGDCBNO 6 (06) 

DSGDMBNC 4(04) 

DSGCSGLN 28(1C) 
* DSGCSOHD 7007) 20 
*DSGDSOHIT 7(07) 10 
*DSGDSOHS 7(07) 02 
*DSGDSOH1 7(07) 04 
*DSGDSOLS 7(07) 80 
*DSGDSORI 7(07) 44 
*DSGDSOUP 7(07) 01 
*DSGDUPS 15 (0F) 08 
* DSGHCULD 15 (OF) 40 
DSGHSADD 8(08) 

*DSGHSWLR 15(0F) 01 
DSGINDA 7007) 

DSGINDB 14 (OE) 

DSGINDC 15 (OF) 

DSGINDG 16(10) 

DSGLROOT 24 (18) 

DSGNOSAM 20 (14) 
*DSGPADKY 15 (OF) 10 
*DSGPREM 16(10) 80 
*DSGRETD 16(10) 04 
*DSGVL 16 (10) 08 
*DSGXP 16 (10) 10 
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RECORD LAYOUT 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 4 DSGDCBA Address of the ACB 
extension for this data 
set (KSDS ACB extension 
if HISAM) 
4 (04) 2 DSGDMBNO DMB number for this DSG 
6 (06) 1 DSGDCBNO ACB number of ACB in DMB 
(KSDS ACB number if 
HISAM) 
7(07) 1 DSGINDA JCB indicators 
DSGDSOLS 80 This is last DSG in JCB 
DSGDSORI 44 Data set group is root in 
index 
DSGDSOHD 20 Data set group is HDAM 
DSGDSOHI 10 Data set group is HIDAM 
DSGDSOH1 04 Data set group is HISAM 
or simple HISAM 
DSGDSOHS 02 Data set group is HSAM or 
simple HSAM 
DSGDSOUP 01 Data set group is SHSAM 
or SHISAM 
8 (08) 4 DSGHSADD HSAM I/O area after open 
12(0C) 2 DSGBOFF HSAM block size 
14(0E) 1 DSGINDB (Not used in DL/I DOS/VS) 
15(0F) 1 DSGINDC JCB indicators 
DSGBLDEL 80 Delete/replace DSG 
DSGHDULD 40 HD unload is running 
DSGCONST 20 Index data set contains 
constant 
DSGPADKY 10 Search argument not equal 
to key length 
DSGDUPS 08 Nonunique secondary index 
keys 
DSGHSWLR 01 HSAM wrong length record 
16(10) FH DSGINDG DSG indicators - 
retrieve‘s variakle 
length flags 
DSGPREM 80 Segment prefix moved to 
work area 
DSGDATX 40 Segment completely 
expanded 
DSGXP 10 Force complete segment 
expansion 
DSGVL 08 The variable length 
routine has been entered 
for segment 
DSGRETD 04 Data return call 
DSGCOMMD 02 Path return call 
17(11) 3 **Reserved+** 
20(14) 4 DSGNO SAM 


Retrieve's HSAM ID 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
24(18) “y DSGLROOT RBA of current root 
28(1C) DSGDSGLN Length of each DSG 


section of JCB 
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DWR_- DATA WORK RECORD 


DSECT Name: 


This DSECT has the following uses: 


1. Record the old and new location of a segment. 
Zs Record the location and old value of a pointer that may have 
to be updated. 


These records are created by RELOAD and SCAN. 


by UPDATE for its spill table and file. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


DWRCDSG 
DWRCRDB 
DWRCRDSG 
DWRCSKEY 
DWRCSORT 
DWRCTYPE 
DWRLLEN 
DWROACT 
DWRRCOMP 
DWRRMOVE 
DWRRUPDT 


Offset 


Dec (Hex) 


11(00B) 
12 (00C) 
13(00D) 
12(00C) 
11(00B) 
10 (00A) 
14 (00E) 
8 (008) 

4 (008) 

0 (000) 

14 (00E) 


Flag 
Code (Hex) 


12 
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The same format is used 
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| Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 4 DWRSTART 

0(00) 4 DWRRMOVE New RBA of a moved 

segment 

4(04) 4 DWRRCOMP Old RBA of a segment for 
compare 

8 (08) 2 DWROACT Offset in ACT that built 
this record 

10(00A) 1 DWRCTY PE Record type code 

11(00B) 1 DWRCSORT Minor sort key 

11(00B) 1 DWRCDSG Data set group of moved 
segment in K record 

12(00C) 1 DWRCSKEY Update sort key: DB, ID, 

, DSG, RBA 

12(00C) 1 DWRCRDB Data base ID of segment 
to be updated 

13 (00D) 4 DWRCRDSG Data set group ID of 
segment to be updated 

14(00E) 4 DWRRU PDT RBA of segment to ke to 


DWRLLEN 12 
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be updated 


*-DWRSTART 


\ EIPL - EXEC INTERFACE PROGRAM PARAMETER LIST 
DSECT Names EIPL 
This DSECT describes the DL/I HLPI interface program parameter list 


fields. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag offset Flag 
Name Dec (Hex) Code (Hex) 
EI PABEND 8 (008) 
EIPEPBO 4 (004) 
EIPERMSG 0 (000) 
EIPFLAG 28 (01C) 
*EIPLLEN 29 (01D) 20 
*EIPMES 28 (01C) 20 
EIPPARML 0 (000) 
EIPPCBL 12 (00C) 
EIPELILN 16 (010) 
*EIPPLIPG 28 (01C) 40 
*EIPPLIPS 28 (01C) 80 
EIPPLISA 20 (014 
EIPSDIB 24 (018) 
*EITPSPCLN 20 (014) oc 
Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(000) 4 EIPPARML DL/I-EIP parameter list 
0(000) 4 EIPERMSG Address of DL/I nessage 
Routine 
(Online/Batch/MPS) 


The following fields are used only in katch/MPS environment 


4 (004) 4 EIPEPBO "V(DLZEIFI)" address of 
EXEC interface program 
(DLZEIPBO) , 

8 (008) Ty EIPABEND Address of DL/I ABEND 
routine 


NOTE: The following fields must remain in the following order: 
1. Address of the PCB list 
2. Pointer to length of initial storage area 
3. Address of initial storage area 

12(00C) 4 EIPPCBL Address of PCB list 


16(010) 4 EIPPLILN Pointer to length of 
initial storage area 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
20(014) 4 EIPPLISA Address of initial 
storage area 
EIPSPCLN "_*EIPPCBL" length of: 
PL/I parameter list 
24(018) 4 EIPSDIB Address of system DIB 
28(01C) 1 EIPFLAG Flag byte 
EIPPLIPS 80 PSB generated for PL/I 
program 
EIPMPS 20 MPS environment 
29(01D) 3 ** Reserved ** 
EIPLLEN "*-—-EIPPARML" EIP 
parameter list length 
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FCB - FILE CONTROL BLOCK 


DSECT Name: FILECB 


This DSECT describes the fields used to control one file used by the 
partial reorganization utility . It is passed as a parameter to the 
work file manager. a 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
FCBABUF 4 (004) 
FCBADTF 0 (000) 
FCBAEOD 8 (008) 
FCBFRECT 12 (00C) 
FCBGREQU 31 (01F) 
FCBGSTAT » 30 (01E) 
FCBHBLKS 26 (001A) 12 
FCBHLLRL 20 (014) 
FCBHLREC 24 (018) 
FCBLLEN 31 (01F) 20 
FCBOCREC 28 (01C) 
FCBQCLOS 31 (01F) 08 
FCBQGET 31 (01F) 20 
FCBOINPT 30 (01EF) 80 
FCBQOPNI 31 (01F) 80 
FCBQOPNO 31 (01F) 40 
FCBQOUTP 30 (01E) 40 
FCBQPUT 30 (018) 10 
FCBSTART 0 (000) 
offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 4 FCBSTART 
0(00) 4 FCBADTF Address of the DTF for 
this file 
4 (04) 4 FCBABUF Address of the current 
record 
8(08) 2 FCBAE OD Address of the end of 
data routine 
12(00C) 4 FCBFRECT Number of records read or 
written 
16(010) 4 ** Reserved ** 
20 (014) 2 FCBHLLRL Last logical record 
length 
22(016) 2 Unused 
24 (018) 2 FCBHLREC Logical record length 


Licensed Material - Froperty of IBM 5-59 


offset Field/Flag Flag 
Dec(Hex) Length Name Code (Hex) Meaning 
26(01A) 2 FCBHBLKS Physical block size 
28(01C) 2 FCBOCREC offset of current record 
in block 
30(01E) 1 FCBGSTAT File status flag 
FCBQINPT 80 File is in input mode 
FCBQOUTP 40 File is in output mode 
31(01F) 1 FCBGREQU Request flags 
FCBQOPNI 80 Open file for input 
FCBQOPNO 40 Open file for output 
FCB QGET 20 Get next record 
FCBQPUT 10 Put a record 
FCBCLOS 08 Closeathe file 
FCBLLEN *-FCBSTART" Length of a 
FCB entry 
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FDB - FIELD DESCRIPTION BLOCK 


DSECT Name: 


The field description block (FDB) is described as part of the general 


structure and description of the data management block (DMB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


*FDBCHAR 
FDBDCENF 
FDBEND 

+*FDBEQOK 
FDBFLENG 

*FDBFP 

* FDBHEX 

+*FDBKEY 

*FDBLAST 
FDBLEN 
FDBOFFCK 
FDBOFFST 

+*FDBPACK 

*FDBSPEC 
FDBSYMBL 
FDBSYSLN 
FDBSYSNM 

* FDBTYPE 

*FDBXDCON 

*FDBXDEQ 
FDBXDFLG 
FDBXDLEN 

*FDBXDLST 
FDBXDNM 
FDBXDSEC 

* FDBXDSPC 

* FDBXDSSQ 

*FDBXDSSS 

*FDBXDSYM 

*FDBZC 


RECORD LAYOUT 


Offset 
Dec (Hex) 


0 (00) 


8 (08) 


10 (0A) 


Offset 
Dec (Hex) 


(QA) 
(0A) 
(0c) 
(0A) 
(0B) 
(OA) 
(OA) 
(0A) 
(OA) 
(0B) 
(08) 
(08) 
(0A) 
(0A) 
(00) 
(0A) 
(00) 
(OA) 
(OA) 
(OA) 
(0A) 
(0c) 
(0A) 
(00) 
(08) 
(0A) 
(OA) 
(OA) 
(0A) 
(OA) 


FDBOFFST 


FDBDCENF 
FDBLAST 


Flag 
Code (Hex) 
03 
(See 
20 
04 
01 
40 
80 
(See 
(See 
02 
10 
(See 
(See 
07 
08 (See 
01 (See 
(See 
(See 
80 (See 
(See 
(See 
10 
04 (See 
20 
40 
07 


Field/Flag Flag 
Length Name _ Code (Hex) Meaning 


FDBS YMBL 


XDFLD fields) 


DFLD fields) 
/CK fields) 


/CK fields 
/CK fields) 


XDFLD fields) 
XDFLD fields) 
XDFLD fields) 
XDFLD fields) 
XDFLD fields) 
XDFLD fields) 
XDFLD fields) 


XDFLD fields) 


Symbolic name 


Field offset fron segment 


keginning 


Flags 


Last FDB for this segment 
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t 
Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
FDBKEY 40 This is segment"s 


FDBEQOK 20 


FDBSPEC 10 


FDBT YPE 07 
FDBZD 07 
FDBFP 04 
FDBPACK 02 
FDBHEX 01 


FDBCHAR 03 


11(0B) 1 FDBFLENG 


sequence field 
Duplicate sequence fields 
allowed 

Special FDB (XDFLD, /CK, 
or /SK) 

Field format bits 

Field is zoned decimal 
Field is floating foint 
Field is packed decimal 
Field is hexadecimal 
Field is character 


Executable field length 


*#*This describes the /CK system-related field*+** 


0 (00 3 FDBSYSNM 
3(03) 5 

8 (08) 2 FDBOFFCK 
10(0A) 2 FDBSYSLN 


***This describes the XDFLD*** 


0 (00) 8 FDBXDNM 
8(08) 2 FDBXDSEC 
10 (0A) 41. FDBXDFLG 


FDBXDLST 80 
FDBXDSYM 40 
FDBXDSSS 20 


FDBXDSPC 10 
FDBXDCON 08 
FDBXDSSQ 04 
FDBXDEQ 01 


11(0B) 1 FDBXDLEN 
12(0C) FDBEND 
12(0C) FDBLEN 
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Constant “/CK* 
Remainder of field name 


Offset from beginning of 
concatenated key 


Bits 0-3 = X"0001"; Bits 
4-15 = length minus 1 


FDB Name 


Offset to secondary list 
for this index 


Flags 

Last FDB 

Pointer is symbolic 
Pointer is contained in 
SOURCE/SUBSEQ data 
Special FDB 

Constant present 

SUBSEQ present 

Index segment same as 
index source segment 


Length of search field 
End of FDB entry 


Length of FDB entry 
(FDBEND minus FDBSYMBL) 


FER _- FIELD EXIT ROUTINE INTERFACE LIST 


DSECT Name: FER 


The FER (Field Exit Routine Interface List) is used to pass 
information to the named user-written exit routine whenever a 
designated field is to be processed. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


FERPSCS 
*FERPCSCT 
*FERPCSFE 
*FERPCSNT 
* FERPCSOK 
* FERPCSTC 

FERPEC 

FERPFNCT 

FERPFSBA 
*FERPGET 
*FERPINS 

FERPLEN 

FERPPFA 

FERPPFL 

FERPPSA 
*FERPPUT 
*FERPREP 
*FERPRET 
*FERPSSA 

FERPUFA 

FERPUFL 

FERPUSA 

FERPUWA 
*FERPXDF 


POOR ONNNNN bd 


offset Code 
Dec (Hex) (Char) 


(002) 
(002) 
(002) 
(002) 
(002) 
(002) 


PO bt 


cs) 


(000) 


(001) 
(01C) 
(000) 
(001) 
(050) 
(00c) 
(00A) 
(004) 
(000) 
(001) 
(001) 
(001) 
(018) 
(016) 
(010) 
(020) 
(001) xX 


an?) 


Mm © wd 
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RECORD LAYOUT - FER 


Offset Field/Flag Code 

Dec (Hex) . Length Name __. _ (Char) Meaning 

0(00) 1 FERPEC Entry code 

FERPGET G Get function 
FERPPUT P Put function 
1(01) 1 FERPFNCT Function code 
FERPRET G Retrieve segment 
conversion 
FERPINS I Insert 
FERPREP R Replace 
FERPSSA Ss Retrieve SSA conversion 
FERPXDF xX Retrieve SSA conversion 
for XDFLD 

2(02) 1 FERPCSC Conversion status code 

FERPCSOK OK 

FERPCSNT A Numeric truncation error 

FERPCSCT B Character truncation 
error 

FERPCSFE Cc Format error 

FERPCSTC D Type conflict 

3 (03) 1 **Re served ** 

4 (04) 4 FERPPSA Physical segment address 
(if variable length, 
points to two byte length 
field) 

8 (08) 2 **Reserved** 

10 (0A) 2 FERPPFL Physical field length 
(zero if virtual field) 

12(0C) 4 FERPPFA Physical field address 
(zero if virtual field) 

16(10) 4 FERPUSA User segment, address 

20(14) 2 **Reserved** 

22(16) 2 FERPUFL User field length 

24(18) 4 FERPUFA User field address 

28(1C) 4 FERPFSBA FSB address 

32(20) 48 FERPUWA User work area 

80 (50) 0 FERPLEN Length of field exit 
routine interface list 
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FERT — FIELD EXIT ROUTINE TABLE 


DSECT Name: FERT 


The FERT (Field Exit Routine Table) is used to hold information about 


a user-written exit routine. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
*FERTDUMP 20 (014) 80 
FERTFLAG 20 (014) 
FERTLEN 24 (018) 
FERTNAME 0 (000) 
FERTPRES 16 (010) 
FERTRTEP 8 (008) 
FERTRLTG 12 (00C) 


RECORD LAYOUT - FERT 


Offset Field/Flag Flag 
Dec (Hex) Length Name _ Code (Hex) Meaning 
0(00) 8 FERTNAME Module name 
8 (08) 4 FERTRTEP Module entry point 
12(0c) 4 FERTRTLG Module length 
16(10) 4 FERTPRES Pointer to next FERT 
entry 
20(14) 1 FERTFLAG 
FERTDUMP 80 Control block dumped 
21(15) 3 **#Reserved** 
] 24118) 0 FERTLEN Length of field exit 


routine table 
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| FLD. - FIELD LEVEL DESCRIPTOR 
DSECT Name: FLD 
The FLD (Field Level Descriptor) block is used to hold information 


about fields, operators and connectors. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 3 Offset Flag 
Name Dec (Hex) Code. (Hex) 
*FLDDATAL 0(00) 80 
*FLDDPAR 0(00) 08 
FLDEND 5 (05) 08 
FLDF LENG 5(05) 

FLDF1 0(00) 

*FLDKEY1 0 (00) 44 
*FLDLCH 0 (00) O04 
*FLDMBR “ - 4(¢01) 

FLDLENG 5(05) 

*FLDMEMAD 1(01) 04 
*FLDMEMAQ 1(01) 80 
*FLDMEMGT 1(01) 20 
*FLDMEMLT 1(01) 40 
*FLDMEMNE 1(01) 60 
*FLDMEMOR 1(01) 02 
*FLDMEMRP 1(01) 01 
*FLDNOCOV 0(00) 20 
*FLDNXYSM 0 (00) 10 
FLDSSAOF 2(02) 
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offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 1 FLDF1 Field flags 
FLDDATA 80 Field qualified on data 
FLDKEY1 40 Field qualified on key 
FLDNOCOV 20 No conversion for this 
field 
FLDNXTSM 10 Next field is the same 
FLUCDPAR 08 Field destination parent 
FLDLCH 04 Field in logical child 
1(01) 1 FLDMBR Encode 
operators/connectors 
FLDMEMEQ 80 Operator has = sign 
FLDMEMLT 40 Operator has < sign 
FLDMEMGT 20 Operator has > sign 
FLDMEMNE 60 Operator is not equal 
FLDMEMAD 04 AND connector 
FLDMEMOR 02 OR connector 
FLDMEMRP 01 Right parenthesis 
2 (02) 2 FLDSSAOF Offset to value area in 
SSA for this field 
4 (04) 1 FLDF LENG Executable length cof 
field 
5(05) 3 ** Reserved ** 
FLDEND End of field level 
descriptor 
FLDLENG Length of each FLD entry 
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FSB.- FIELD SENSITIVITY BLOCK 
DSECT Name: FSB 
The FSB (Field Sensitivity Block) is used to hold information akout a 


field which has keen defined with a SENFLD statement during PSBGEN. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code(Hex) 
FSBCHAIN 28 (01C) 
*F SBCHAR 10 (O0A) 03 
*FSBCR 11 (0O0B) 20 
*FSBDPF 10 (O0OA) 10 
*FSBEQOk 10 (0O0OA) 20 
FSBFDBP 0 (000) 
*FSBFER 16 (010) 20 
FSBFERTA 24 (018) 

FSBFLAG 11 (0Q0OB) 

FSBFLDNM 0 (000) 
*FSBFP 10 (O0A) 04 
*FSBHEX 10 (Q0A) 01 
*FSBIV 16 (010) 40 
FSBIVA 20 (014) 
*FSBKEY 10 (00A) 40 
*FSBLAST 10 (000A) 80 
FSBLEN 32 (020) 
*FSBNR 16 (010) 08 
*FSBOVF 11 (0O0B) 40 
*FSBPACK 10 (000A) 02 
FSBPCHA 4 (004) 

FSBPWYAD 6 (006) 

FSBPVLEN 12 (00C) 

FSBPVLOK 8 (008) 

FSBPVTYP 10 (0O0A) 
*FSBSSA 11 (00B) 80 
*FSBTYPE 10 (Q0OA) 07 
*FSBUCHAR 16 (010) 03 
*FSBUFP 16 (10) 04 
* FSBUHEX 16 (10) 01 
*FSBUPACK 16 (10) 02 
FSBUVLEN 18 (12) 

FSBUVLOC 14 (OE) 

FSBUVTYP 16 (10) 
*FSBUZD 16 (10) 07 
*FSBVF 16 (10) 10 
*FSBZD 1 OCOA) 07 
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RECORD LAYOUT - FSB 


Offset Field/Flag Flag 
Dec(Hex) Length Name Code (Hex) Meaning 
0(00) 8 FSBFLDNM Field name 
0(00) 4 FSBFDBP FDB address (ACBGEN only) 
4 (04) 2 FSBPCHA Physical view chain 
pointer (ACBGEN only) 
6(06) 2 FSBPHYAD Field physical adjustment 
factor (ACBGEN only) 
8 (08) 2 FSBPVLOC Displacement in physical 
segment 
10(0A) 1 FSBPVTYP Physical field type 
FSBLAST 80 Last FSB 
FSBKEY 40 Sequence field 
FSBECOK 20 Duplicate sequence 
allowed 
FSBDPF 10 Field is in destination 
parent 
FSBTYPE 07 Field format bits 
FSBZD 07 Field format is zoned 
decimal 
FSBFP 04 Field format is floating 
; point 
FSBCHAR 03 Field format is character 
FSBPACK 02 Field format is packed 
decimal 
FSBHEX 01 Field format is kinary 
11 (0B) i FSBFLAG Flags 
FSBSSA 80 Field may be. used in an 
SSA 
ESBOVF 40 Field has subfields 
FSBCR 20 Conversion required 
12(0C) 2 FSBPVLEN Physical field length 
(executakle) 
14 (0E) 2 FSBUVLOC Field displacement in 
. user's view 
16(10) al. FSBUVTYP User's field type 
FSBIV 40 Initial value specified 
FSBFER 20 Field exit routine 
specified 
FSBVF 10 Field is virtual 
FSBNR 08 Replace prohibited 
FSBUZD 07 User field format is 
zoned decimal 
FSBUFP 04 User field format is 
floating point 
FSBUCHAR 03 User field format is 
character 
FSBUPACK 02 User field format is 
packed decimal 
FSBU HEX 01 User field format is 


binary 
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Offset Field/Flag Flag 


Dec(Hex) Length Name ___ Code (Hex) Meaning 

17(11) 1 *#Reserved+#*# 

18(12) 2 FSBUVLEN User's field length 
(executable) 

20(14) 4 FSBIVA Pointer to specified 
initial value 

24(18) 4 FSBFERTA Field exit routine table 
entry address 

28(1C) 4 FSBCHAIN Chain pointer for ACBGEN 

32 (20) 0 FSBLEN Length of FSB entry 


5-70 Licensed Material ~ Property of IBM 


HLPIL - HIGH LEVEL PROGRAM INTERFACE PARAMETER LIST 


DSECT Name: HLPIL 


This DSECT describes the fields contained in the HLPI paraneter list. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag: Offset Flag 
Name Dec (Hex) Code_ (Hex) 
DLZHLPIL Q (000) 
HLPIARGO 0 (000) 
HLPICKID 8 (008) 
HLPIDIBP 4 (004) 
HLPIFLDN 36 (024) 
HLPIFLDV 4Q (028) 
HLPILFLD 44 (02C) 
HLPILIOA 20 (014) 
HLPINFLD 28 (01C) 
HLPIOFST 24 (018) 
HLPIOPER 32 (020) 
HLPIPCBI 8 (008) 
HLPIPSBN 8 (008) 
HLPISEGN 12 (00C) 
HLPISIOA 16 (010) 
offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 4 HLPIARGO Address of ARGO parameter 
list 
4 (04) 4 HLPIDIBP Address of user DIE 
8 (08) 4 HLPIPS BN Pointer to PSBNAME for 
scheduling call 
8 (08) 4 HLPICKID Pointer to checkpoint ID 
for checkpoint call 
8 (08) 4 HLPIPCBI Pointer to PCB index 
number1 
12(0C) 4 HLPISEGN Pointer to segment name 
16(10) 4 HLPISIOA Address of the segment 
I/O area 
20(14) 4 HLPILIOA Pointer to the length of 
the I/O area 
24(18) 4 HLPIOFST Pointer to the length of 
the variable destination 
parent 
28(1C) 4 HLPINFLD Pointer to the number of 
fields (always 1 for 
DL/I) 
32 (20) 4 HLPIOPER Pointer to the relational 
operators 
36(24) 4 HLPIFLDN Pointer to field name 
40(28) 4 HLPIFLDV Pointer to field value 
44(2C) 4 HLPILFLD Pointer to length of the 


field value 
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JCB. - JOB CONTROL BLOCK 
DSECT Name: JCB 
The JCB is described as part of the general structure and description 


of the program specification block (PSB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
*JCBALD 4&2 (2A) 40 
* JCBALLEX 64 (40) 04 
* JCBALOD 42 (2A) 80 
* JCBBLDEL 179 (B3) 80 

JCBBOFF 176 (BO) 

*JCBCCALL 41 (029) 04 

JCBCODE 60 (03C) 

* JCBCOMMD 180 (OB4&) 02 
*JCBCONST 179 (0B3) 20 
*JCBDATX 180 (0OB4) 40 

JCBDCBA 164 (OA4) 

JCBDCBNO 170 (OAA) 
*JCBDEFDL 60 (03C) 40 
*JCBDLET 148 (094) 02 

JCBDMBNO 168 (0A8) 

* JCBDOPI 64 (040) 08 

JCBDSGLN 188 (OBC) 
*JCBDSOHD 171 (OQAB) 20 
*JCBDSOHI 171 (OAB) 10 
* JCBDSOHS 171 (OAB) 02 
*JCBDSOH1 171 (OAB) 04 
*JCBDSOLS 171 (0OAB) 80 
* JCBDSORI 171 (OAB) 44 
* JCBDSOUP 171 (OAB) 01 
* JCBDUPS 179 (0B3) 08 
*JCBFLS 64 (040) 01 
* JCBFNSL 43 (02B) 80 
* JCBHDULD 179 (0B3) 40 

JCBHSADD 172 (OAC) 
*JCBHSWLR 179 (0B3) 01 

JCBINDA 171 (OAB) 

JCBINDB 178 (0B2) 

JCBINDC 179 (0B3) 

JCBINDG 180 (0B4) 

*JCBISRT 148 (094) 01 
*JCBKEYX 180 (OB4) 20 

JCBLEVND 4 (004 

JCBLEVTB 0 (000) 

JCBLEV1C 32 (020) 

J CBLROOT 188 (OBC) 

* J CBLSSAQ 40 (028) 02 

JCBLVC 65 (041) 

JCBLVT 64 (040) 

*JCBLV1iC 41 (029) 01 

JCBMKYL 38 (026) 

* JCBMLPOS 60 (03C) 08 
*JCBMSSA 40 (028) 10 
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Field/Flag Offset Flag 


Name Dec (Hex) Code(Hex) 
| *acBmussaA 40 (028) 08 
*JCBNODEQ 148 (094) 80 
JCBNOSAM 184 (0B8) 
| *JcBNSSA 40 (028) 80 
+JCBNTFD 148 (094) 08 
+JCBOPEN 61 (03D) 80 
+ JCBORGHD 61 (03D) 20 
+JCBORGHI 61 (03D) 10 
+J CBORGHS 61 (03D) 02 
*#JCBORGH1 61 (03D) 04 
JCBORGN 61 (03D) 
+JCBORGRI 61 (03D) 44 
+J CBORGSH 61 (03D) 05 
+JCBORGSS 61 (03D) 01 
+ JCBPADKY 179 (0B3) 10 
JCBPC 66 (042) 
+J CBP CHK 148 (094) 20 
JCBPOP 67 (043) 
+ JCBPPENQ 148 (094) 10 
+ JCBPREM 180 (OB4) 80 
JCBPRESF 63 (03F) 
JCBPREVF 30 (01E) 
JCBPREVR 31 (01F) 
JCBPRLEN 188 (OBC) 
+J CBQAUQ 40 (028) 04 
+JCBOQFLP 43 (02B) 40 
#JCBQSAD 42 (02a) 20 
+JCBQSSA 40 (028) 40 
+JCBRAP 148 (094) 40 
#J CBRDREQ 60 (03C) 01 
JCBRES1 40 (028) 
JCBRES 2 44 (2c) 
JCBRES3 48 (30) 
JCBRES4 52 (34) 
JCBRES5 56 (38) 
JCBRES11 40 (28) 
JCBRES12 41 (29) 
JCBRES13 42 (2A) 
JCBRES14 43 (2B) 
#JCBRETD 180 (B4) 04 
#JCBRETDL 60 (3c) 20 
*#JCBRTIST 60 (3c) 02 
JCBRWKF 62 (3E) 
JCBSDBND 12 (0c) 
JCBSDB1 8 (08) 
+JCBSGRET 60 (3c) 04 
JCBSIZE 36 (24) 
*JCBSKPG 148 (94) 04 
JCBSTOR1 68 (44) 
JCBSTOR2 72 (48) 
JCBSTOR3 76 (4c) 
JCBSTOR4 80 (50) 
JCBSTORS 84 (54) 
JCBSTOR6 88 (58) 
JCBSTOR7 92 (5C) 
JCBSTOR8 96 (60) 
+JCBSWAP 179 (B3) 01 
+JCBTAREX 60 (3c) 10 
*JCBTARPR 60 (3C) 80 
| *acBTcaALL 41 (29) 02 
JCBTRACE 16 (10) 
| *J7CBTSKF 43 (2B) 01 
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Field/Flag Offset Flag 


Name Dec (Hex) Code (Hex) 
| *acBuossa 4O (28) 20 
+JCBVL 180 (Bu). 08 
JCBWKRO 100 (64) 
JCBWKRL 104 (68) 
JCBWKR2 108 (6C) 
JCBWKR3 112 (70) 
JCBWRK4Y 116(74) 
JCBWKRS 120(78) 
JCBWKR6 124(7C) 
JCBWKR7 128(80) 
JCBWKR8 132(84) 
JCBWKR9 | ! 136 (88) 
JCBWER1 0 140(8C) 
JCBWKR11 144(90) 
JCBWKR12 148(94) 
JCBWKR13 152(98) 
JCBWKR14 156 (9C) 
JCBWKR15 160(A0) 
JCBWK12A 148(94) 
JCBWK12B 149 (95) 


*JCBXP 180 (B4) 10 
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RECORD LAYOUT - JCB 


offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 4 JCBLEVTB Address of level table 

4(04) 4 JCBLEVND Address of end of level 
table + 1 

8 (08) 4 JCBSDB1 Address of first SDE 
entry (roots) 

12(0C) 4 JCBSDBND Address of end of SDBs +t 

1 

16(10) 14 JCBTRACE Prior 7 functions 


DL/I FUNCTION CODES 


followed by return cde 


The following calls require a PCB and wiil be traced in JCBTRACE. Any 
call not requiring a PCB is not put in the trace table. However, the 
function code appears in JCBPREVF or JCBPREVR. 


Name Code (Hex) Meaning 

FUNCGU 01 “GUS Get Unique 

FUNCGHU 01 “GHU* Get Hold Unique 

FUNCGN 03 “GN* Get Next 

FUNCHHN 03 *"GHN* Get Hold Next 

FUNCGNP 04 “GNP* Get Next Within Parent 
FUNCGHNP 04 “GHNP‘ Get Hold Next Within Parent 
FUNCDRTY 20 Delete/Replace 

FUNCREPL 21 “REPL" Replace 

FUNCDLET 22 *DLET* Delete 

FUNCISTY 40 *ISRT' Insert 

FUNCISRT 41 Insert 

FUNCASRT 42 DL/I Utility Insert 


The following codes must have a PCB 


FUNCCHKP 85 
FUNCPCBM 90 


“CHKP* checkpoint 
PCB Call for MPS 


The following codes do not require a PCB 


FUNCUNLD AO 
FUNCGSCD Al 
FUNCTERM A3 


DL/I FUNCTION TYPES 


FUNCGNTY 80 
FUNCGUTY 40 
FUNCPATY 20 
FUNCHOTY 08 
30(1E) 1 


JCBPREVF 


“UNLD* Unload Call 
“GSCD" Get SCD Call 
“TERM' Termination Call 


Get Next Type 
Get Unique Type 
Parent Type 
Hold Type 


Prior function 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 

31(1F) 1 JCBPREVR Prior return code (right 
, byte) 

32(20) 4 JCBLEV1c Address of first level 


table entry in call; 
Address of lowest level 
table entry succesfully 
processed ky retrieve 


36(24) 2 JCBSIZE PCB plus JCB size 
38 (26) 2 JCBMKYL Maximum length of key 
feedback area 
40(28) 4 JCBRES1 Call characteristics set 
by call analyzer 
40(28) 1 JCBRES11 First flag byte 
JCBNSSA 80 No SSAS 
JCBQSSA 40 Qualified SSAs 
JCBUQSSA 20 Unqualified SSAs 
JCBMSSA 10 Multiple SSAs 
JCBMUSSA 08 Multiple unqualified SSAs 
JCBQAUQ 04 Qualified SSA after an 
unqualified SSA 
JCBLSSAQ 02 Last SSA qualified 
41(29) 1 JCBRES12 Second flag byte 
JC BCCALL O4 Call has C command code 
JCBTCALL 02 Call has T command code 
JCBLV1C o1 JCBLEViC has been filled 
on this call 
42(2A) 1 JCBRES13 Third flag byte 
JCBALQD 80 Any level qualified 
on data . 
JCBALD 40 Any level had D 
command code 
JCBQSAD 20 Qualified SSA follows 
D command code 
43(2B) 1 JCBRES14 Fourth flag byte 
JCBFNSL 80 Field is not in subklist 
JCBQFLP 40 Qualification field is 
in logical parent 
JCBTSKF 01 This set has a key field 
44(2C) 4 JCBRES2 Action modules work area 
48 (30) 4 JCBRES3 Action Modules work area 
52 (34) 4 JCBRES4& Action Modules work area 
56(38) 4 JCBRES5 Action modules work area 
60 (3C) 1 JCBCODE Inter-module 
communications switch 
JCBTARPR 80 DLZPOST update twin 
pointers only 
JCBDEFDL 40 Re-insert of a deleted 
segment 


5-76 Licensed Material - Property of IBM 


Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) _Meaning 
JCBRETDL 20 Return deleted segment 
for HD unload 
JCBT AREX 10 Reposition for GN (no 
SSA) with multiple 
positioning 
JCBMLPOS 08 Retrieve keeping multiple 
positions 
JCBSGRET 04 Used in positioning after 
not found 
JCBRTIST 02 Retrieve positioning for 
insert 
JC BRDREQ 01 DLZSKPG start at next 
occurence of segment 
61(3D) 1 JCBORGN Open switch and composite 
organization of all SDBs 
in the JCB 
JCBOPEN 80 Open done for all data 
sets in the JCB 
JCBORGRI 44 Organization is root of 
index 
JCBORGHD 20 Organization is HDAM 
JCBORGHI 10 Organization is HIDAM 
JCBORGSH 05 Organization is simple 
HISAM 
JCBORGH1 04 Organization is HISAM 
JCBORGHS 02 Organization is HSAM 
JCBORGSS 01 Organization is simple 
HSAM 
62 (3E) 1 JCBRWKF Retrieve's working 
function 
63(3F) 1 JCBPRESF Present coded function 


(see DL/I Function Codes) 


64(40) 1 JCBLVT Switches used in 
accessing segments via 
DLZSKPG routine 


JCBDOPI 08 Program isolation is to 
be done for associated 
PCB 

JCBALLEX 04 All sensitive segments 
have exclusive intent 

JCBNMFDB 02 Field name not found in 
FDB 

JCBFLS 01 ‘At least one segment has 


field level sensitivity 
(used by call analyzer) 


65(41) 1 JCBLVC Level of segment being 
searched for by retrieve 

66(42) 1 JCBPC Physical code of segment 
being searched fcr by 
retrieve 

67(43) 1 JCBPOP Parent level for within 


parent calis 
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Offset Field/Flag Flag 
Dec (Hex) Length Name ; Code (Hex) Meaning 
68 (44) rT} JCBSTOR1 Insert"s use across I/0 
or calls 
72°48) 4 JCBSTOR2 Insert's use acrcoss I/0 
or calls 
76 (4C) 4 JCBSTOR3 Insert's use across I/0 
or calls 
80(50) 4 JCBSTOR4 Address of last segment 
read - referenced by 
label BEGBUF in retrieve 
84 (54) 4 JCBSTORS Current segment RBA - 
referenced by label 
CURTTR in retrieve 
88(58) rT JCBSTOR6 Retrieve"s use across I/0 
or calls 
92 (5C) 4 JCBSTOR7 Contains switches for 
positive check phase - 
referenced by label 
KEEPIT in retrieve 
96(60) 4 JCBSTOR8 Work area for retrieve 
100 (64) 4 JCBWKRO Action modules werk area 
104 (68) 4 JCBWKR1 Action modules work area 
108 (6C) rT} JCBWKR2 Action modules work area 
112 (70) 4 JCBWKR3 Action modules work area 
116(74) rT JCBWKR4 Action modules work area 
120 (78) 4 JCBWKRS5 Action modules work area 
124 (7c) 4 JCBWKR6 Action modules work area 
128 (80) 4 JCBWKR7 Action modules work area 
132(84) 4 JCBWKR8 Action modules work area 
136 (88) 4 JCBWKRY ’ Action modules werk area 
140 (8C) 4 JCBWKR10 Action modules work area 
144 (90) y JCBWKR1i1i Action modules work area 
148 (94) 4 JCBWKR12 Action modules work area 
148 (94) 4 JCBWK12A Program isolation 
switches (retrieve only) 
JCBNODEQ 80 No dequeue processing; 
all level table entries 
empty after CHKP, TERM, 
etc. 
JCBRAP 40 Root anchor pointer 
enqueued (HDAM only) 
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Offset 


Field/Flag Flag 


Dec (Hex) Length _Name .Code (Hex) Meaning 
. JCBPCHK 20 DLZPCHK calling DLZPOST 

(enqueue not required) 

JCBPPENQ 10 DLZKDTL enqueued on 
physical parent searching 
on data field 

JCBNTFD 08 DLZPCHK processing not 
found condition 

JCBSKPG O4 DLZDEQ should release all 
outstanding enqueues 

JCBDLET 02 ENQ/DEQ required in 
DLZPCHK due to delete 

JCBISRT 01 Indicates DLZHIDA or 
DLZHDAM is accessing 
destination parent during 
a logical child insert 

149 (95) 3 JCBWK1 2B Action modules wcrk area 

152(98) 4 JCBWKR13 Action modules work area 

156 (9C) 4 JCBWKR1i4 Action modules work area 

160 (AQ) 4 JCBWKR15 Action modules work area 

**#*Start of each DSG section of JCB*** 

164 (A4) 4 JCBDCBA Address of the ACB 
extension for this data 
set (KSDS ACB extension 
if HISAM) 

168 (A8) 2 JCBDMBNO DMB number for this DSG 

170 (AA) 1 JCBDCBNO ACB number of ACB in DMB 
(KSDS ACB number if 
HISAM) 

171 (AB) 1 JCBINDA JCB Indicators 

JCBDSCLS 80 This last DSG in JCB 

JCBDSORI 44 Data set group is root in 
index 

JCBDSOHD 20 Data set group is HDAM 

JCBDSOHI 10 Data set group is HIDAM 

JCBDSOH1 04 Data set group is HISAM 
or simple HISAM 

JCBDSOHS 02 Data set group is HSAM or 
simple HSAM 

JCBDSOUP 01 Data set group is SHSAM 
or SHISAM 

172 (AC) 4 JCBIRECA 

172 (AC) 4 JCBHSADD HSAM I/O area after open 

172 (AC) 4 JCBTITR 

176 (BO) 2 HSAM block size 

178 (B2) 1 JCBINDB (Not used in DL/I DOS/VS) 

179 (B3) 1 JCBINDC JCB indicators 
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Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
JCBBLDEL 80 This DSG belongs to 
delete/replace 
JCBHDULD 40 HD unload is running 
JCBCONST 20 Index data set contains 
constant 
JCBPADKY 10 Search argument not equal 
to key length 
JCBDUPS 08 Non-unique secondary 
index keys 
JCBHSWLR 01 HSAM wrong length record 
180 (B4) 1 JCBINDG JCB indicators - retrieve 
variable length flags 
JCBPREM 80 Segment prefix moved to 
work area 
JCBDATX 40 Segment completely 
expanded 
JCBXP 10 Force complete segment 
expansion 
JCBVL 08 The variakle length 
routine has been entered 
for segment 
JCBRETD 04 Data return call 
JCBCOMMD 02 Path return call 
181 (B5) 3 **Reserved ** 
1 84 (B8) 4 JCBNOSAM Retrieve HSAM‘s ID 
188(BC) 4 JCBLROOT RBA of current root 
JCBPRLEN Length of JCB prefix 
JCBDSGLN Length of each DSG 
section of JCB 
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LEV - LEVEL TABLE ENTRY 


DSECT Names: 


The level table entry is described as part of the general structure 


and description of the program specification Ltlock (PSB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


*LEVCDB 
* LEVCOMMC 
* LEVCOMMD 
* LEVCOMMF 
*LEVCOMML 
* LEVCOMMN 
* LEVCCMMC 
* LEVCOMMT 
*LEVCOMMU 
* LEVCOMMV 
* LEVCOMMX 
*LEVCONT 
*LEVDATA 
*LEVDATA1 
* LEVDLET 
*LEVEMPTY 
LEVEND 
*LEVEOD 
LEVF LD 
LEVF1 
LEVF2 
LEVF3 
LEVF4 
LEVF5 
*LEVHELD 
*LEVHIER 
*LEVISRT 
*LEVKEY1 
*LEVLAST 
LEVLEN 
LEVLEV 
*LEVLSW 
*LEVMEMAC 
LEVMEMBR 
* LEVNDB 
*LEVNF POS 
*LEVNOCOV 
LEVNUPC 
LEVNUS DB 
LEVPC 
*LEVPFRST 
*LEVPLAST 
* LEVPSUDO 
LEVSDB 
LEVSEQ@F 
LEVSSA 
* LEVSTOP 


Offset 


Dec (Hex) 


(OD) 
(12) 
(13) 
(13) 
(13) 
(13) 
(13) 
(12) 
(12) 
(12) 
(12) 
(OD) 
(0c) 
(11) 
(0C) 
(OC) 
(24) 
(OD) 
(18) 
(0c) 
(OD) 
(11) 
(12) 
(13) 
(0c) 


(OC) . 


(11) 
(11) 
(0c) 
(24) 
(00) 
(0D) 
(14) 
(14) 
(OD) 
(OD) 
(11) 
(10) 
(1C) 
(01) 
(0c) 
(0C) 
(11) 
(08) 
(02) 
(20) 
(0D) 


Flag 
Code (Hex) 


02 
08 


01 


01 


02 


08 


04 
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5-81 


Field/Flag offset Flag 


Name Dec (Hex) _ Code (Hex) 
LEVTITR 4 (04) 
LEVUSEO F 14 (OE) 


RECORD LAYOUT - LEV 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 1 LEVLEV Level number 

1 (01) 1 LEVPC Current segnent physical 


code 


Note: This portion of the level table, once set by retrieve/insert, 
is never cleared to zeros; it is only changed as needed. 


2(02) 2 LEVSEGOF Segment"s physical code 
offset from start of 
record (relative offset 
to segment from start of 


buffer) 
4 (04) 4 LEVTITR Relative byte address 
8 (08) 4 LEVSDB SDB entry address for 


current segment physical 
code in this entry 


12(0C) 1 LEVF1 Flags 

LEVDLET 80 Segment at this level 
newly deleted 

LEVEMPTY 40 This level table entry 
empty 

LEVHELD 20 _ Segment at this level in 
hold status 

LEVHIER 10 Segment at this level in 
hierarchic path (HISAM 
only) 

LEVDATA 08 Segment at this level 
moved to user 

LEVPLAST 04 Segment is last of type 
for parent 

LEVPFRST 02 Segment is first of type 
for parent 

LEVLAST 01 This is the last level 
table for PCB 

13(0D) 1 LEVF2 Flags 

LEVCDB 80 Verify enques required in 
data base of current 
segment 

LEVNFPOS 40 Level has not found 
position for higher level 

LEVE OD 20 EOD flag 

10 ** Reserved ** 
LEVCONT 08 The SSA at this level 


allows retrieve to obtain 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 


LEVSTOP 


LEVLSW 
LEVNDB 


14 (0E) 2 LEVUSEOF 


04 


02 


01 


the next sequential 
segment 

Used to determine the 
setting of LEVCONT by 
retrieve 

Used by retrieve 

Verify enques required in 
destination parents data 
base 


Offset of segment in user 
I/O area (PSTUSER) 


Note: Fields LEVNUPC through LEVSSA describe the SSA set by the call 


analyzer for this entry. 


16(10) 1 LEVNUPC 


17(11) 1 LEVF3 
LEVISRT 


LEVHOLD 


LEVPSUDO 
LEVDATA1 
LEVKEY1 
LEVNOCOV 
18 (12) 1 LEVF4 
LEVCOMMT 


LEVC OMMC 


LEVC OMMX 


LEVCOMMV 


LEVCOMMU 


19(13) 1 LEVF5 
LEVCOMMF 


LEVCOMML 
LEVC OMMD 
LEVCOMMN 


LEVC OMMQ 


80 


10 


08 
04 
02 


01 


80 
40 


20 
02 


01 


20 
10 
04 
02 
01 


Physical code of 
requested segment 


Flags 

Inserting at this level 
(set by retrieve) 

At least one Boolean 
expression in range at 
this level 

This is a pseudo SSA 
filling gap 

At least one memker 
qualified on data 

Every Boolean set has at 
least one key field 

No conversion to be done 
for this segment 


Flags 


T command 
by direct 
Cc command 
qualifier 


code - retrieve 
address 

code - 

is concatenated 


key 

X command code - index 
Maintenance internal call 
V command code - maintain 
existing position at all 
levels 

U command code - maintain 
existing position at this 
level 


Flags 

F command code - get 
first of segment type 

L command oode - get last 
of segment type 

D command code - transfer 
data this level 

N command code - do not 
replace this level 

Q command code - enqueue 
segment at this level 
read only 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
20(14) 1 LEVMEMBR Switch for each nenker 
80 ** Reserved ** 
40 ** Reserved ** 
20 ** Reserved ** 
10 ** Reserved *# 
LEVMEMAC 08 This memker in use - 
(unqualified in only bit) 
04 ** Reserved ** 
02 ** Reserved *#* 
01 ** Reserved ** 

21(15) 3 ** Reserved ** 

24(18) 4 LEVFLD Pointer to first field 
entry (SSA unqualified if 
zeros) 

28(1C) 4 LEVNUS DB SSAs SDB address 

32(20) 4 LEVSSA SSAs left parenthesis 
position address 

36(24) LEVEND End of level table entry 

36(24) LEVLEN Length of level tackle 
entry (LEVEND minus 
LEVLEV) 
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MPC - START PARTITION DLZXCBO2 


PARAMETER LIST MAPPING 


DSECT Name: MPCSPART 
The MPCSPART maps the start partition XECB parameter List. 


RECORD LAYOUT - MPCSPART 


Offset Field/Flag Flag 

Dec (Hex) Length Name - Code(Hex) Meaning 

0(00) 4 MPC XECBS DLZXCBOZ XECB 

4 (04) 4 MPC SPRO Address of start 
partition processing 
routine in DLZMPC00 

8 (08) 4 MPCPTABE Address of next partition 


table entry to be used 
for katch partition entry 
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MPCPT —._MPC PARTITION TABLE 


The Master Partition Controller (MPC) partition table is used to pass 
control information when processing batch partition application 
programs under multiple partition support (MPS). The MFC partition 
table resides in the transaction work area. There is one entry for 
every partition that is system generated. 


Length 
Field Name (bytes) Description 
| MPCPARTB 340 Contains one 28 byte entry (see MPC 
Partition Table entry) for each batch 
| partition allowed to run concurrently. 
The last entry is delimited by a full-word 
of X'FF'. ; 
MPCECBLT 4 (per This is the CICS WAITM ECB list. 
entry) It contains one entry for each: 


e DLZXCBOO (Stop Transaction XECB) - 
used to stop MPS 

e DLZXCB01 (Stop Partition XECB) - 
posted by BPC when it stops 

e DLZXCBO2 (Start partition XECB) - 
defined by MPS. Used by batch 
initialization to notify MPC to start 
the BPC te 

e DLZXCBn3 (ABEND XECB) - Used for ABEND 
handling . 


Note: n is the partition identifier. 


The last entry is delimited by a fullword 
of X"FF'. 
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MPC PARTITION TABLE ENTRY 


DSECT Name: 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


* MPCABWT 
MPCAXECB 
*MPCCNBPC 
MPCDELIM 
*MPCERR 
MPCFLAG 
MPCFLAG1 
*MPCNPTE 
*MPCPACT 
MPCPID 
MPCP IDHX 
*MPCPSTP 
MPCPTLN 
MPCRC1 
MPCRC2 > 
MP CSXECB 
MPCTCA 
*MPCTSTP 


offset 
Dec (Hex) 


0 (00) 
12(0C) 
20(14) 
0 (00) 
0 (00) 
0(00) 
20(14) 
28 (1C) 
0 (00) 
3 (03) 
21(15) 
0 (00) 
28 (1C) 
1(01) 
2(02) 
8 (08) 
4 (04) 
0(00) 
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Flag 
Code ( Hex) 


08 
80 


40 


12 
80 


10 


20 
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RECORD LAYOUT - MPC 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 0 MPCDELIM MPCPT delimiter field 
0(00) 1 MPC FLAG MPC activity flags 
MPCPACT 80 Partition active 
indicator 
MPCERR 40 Error condition 
encountered on DL/I 
scheduling call, or BPC 
attach failure 
MPCTSTP 20 Stop transaction 
indicator 
MPCPSTP 10 Stop partition indicator 
MPCAB WT 08 MPC should wait cn the 
ABEND XECB in the event 
of a BPC ABEND 
1¢401) 1 MPC RC1 Error return code from 
TCAFCTR 
2(02) 1 MECRC2 Error return code from 
TCADLTR 
3(03) 1 MPC PID XECB identifier generated 
by DLZMPCOO 
4(04) 4 MFPCTCA Address of TCA 
8 (08) 4 MPCSXECB Address of stop partition 
XECB (DLZXCBO1) 
12(0C) 4 MPCAXECB Address of partition 
ABEND XECB (DLZXCBn3) 
16(10) 4 Unnamed *#Reserved ** 
20 (14) 1 MPCFLAG1 MPC activity flags 
MPCCNBPC 80 Cancel BPC at stop 
transaction when MPS 
batch partition is not 
active. 
21(15) 2 MFC PIDHX Partition identifier 
23(17) 1 Unnamed ** Reserved ** 
24(18) 4 Unnamed ** Reserved ** 
28(1C) MPCPT LN Length of partition table 
entry 
28(1C) MPCNPTE Number of partition table 
entries defined by 
DLZMPCOO 
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PATH - PATH HEADER CONTROL BLOCK 
DSECT Name: PATH 
This CSECT describes the fields for DL/I HLPI PATH header control 


block. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag offset Flag 
Name Dec (Hex) Code (Hex) 
*PATHCALL 8(008) 80 
PATHFLAG 8 (008) 
* PATHLEN 10 (O0A) oc 
PATHPRCT 4 (004) 
PATHSSAP 0(000) 
PATH1O IN 9 (009) 
offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0 (000) 4 PATHSSAP Address of PATH SSA 
appendage 
4 (004) 4 PATHPRCT Previous get PATH call 
DL/I parameter count 
8 (008) 1 PATHF LAG Flag byte 
PA THCALL 80 Previous call was a GET 
PATH call 
9(009) 1 PATHTOTN Number of calls on 
previous GET PATH call 
10(00A) 2 ** Reserved *#* 
PATHLEN "*-—PATHSSAEP" length of 


PATH header control block 
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PCB - PROGRAM COMMUNICATION BLOCK 


DSECT Name: DBPCB 


The data management PCB (program communication block) is described as 
part of the general structure and description of the program 
specification block (PSB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
DBPCBAE 9 (09) 01 
DBPCEDBD 0 (00) 
DBPCBGO 9 (09) 02 
DBPCBJCB 16 (10) 
DBPCEKFD 36 (24) 
DBPCELEV 8 (08) 
DBPCBLE1 8 (08) 
DBPCBLE2 9 (09) 
DBPCELKY 28 (1C) 
DBPCBMKL : 28 (1C) 
DBPCBNSS 32 (20) 
DBPCBPRO 12 (OC) 
DBPCBSFD 20 (14) 
DBPCBSTC 10 (0A) 
*DBPCBTKW 16 (10) 80 
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RECORD LAYOUT - PCB 


offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 8 DBPCBDBD DBD Name 

8 (08) 2 DBPCBLEV _ Level feedback - 


The following fields are used for communication from PSBGEN tc ACBGEN 
only. 


8 (08) 1 DBPCBLE1 Level feedback flag byte 
one 
9(09) 1 DBPCBLE2 Level feedkack flag byte 
two 
DBPCBGO 02 GO of GOP PROCOPT 
DBPCBAE 01 Suppress program 
isolaticn 
10 (OA) 2 DBPCBSTC Status codes 
12(0C) 4 DBPCBPRO DL/I processing crtions 
16(10) 4 DBPCBJCB JCB address 
DBPCBIKW 80 Another task waiting for 
resource owned by this 
task 
20(14) 8 DBPCBSFD Segment name feedback 
28(1C) 4 DBPCBLKY | Maximum length of key. 


feedback area 


28(1C) 4 DBPCBMKL Current length of key 
feedkack area 


32(20) 4 DB PCBNSS Number of sensitive 
segments in the PCE 


36(24) Var DBPCBKFD Key feedkack area 
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PDCA - PROBLEM DETERMINATION CONTROL AREA 
DSECT Name: PDCA 
The PDCA (Problem Determination Control Area) is used to hold 


miscellaneous data used in problem determination. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag - Offset Flag 
Name Dec (Hex) Code (Hex) 
PDCACPAC 0(00) 
PDCADECB 16 (10) 
PDCAEND 32 (20) 
PDCAFERT 8(08) 
PDCAFLAG 12(0c) 
PDCAMSG 13 (OD) 
* PDCASTOP 12 (0c) 
PDCAXPRM 4(04) 
PDCEPCAT 24(18) 
PDCBPCNT 20 (14) 
PDCSYSTT 28 (1C) 
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RECORD LAYOUT - PDCA 


offset Field/Fliag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 4 PDCACPAC Variakle length segment 
compression routine list 
pointer 

4 (04) 4 PDCAXPRM Secondary index 
suppression routine list 
pointer 

8 (08) 4 PDCAFERT Field exit routine list 

12(0C) 1 PDCAFLAG PDCA flag byte 

PDCASTOP 80 Stop saving messages 

13 (0D) 3 PDCAMSG ABEND code 

16(10) 4 PDCADECB Online formatted dump ECB 

** MPS TERMINATION CLEANUP ROUTINE ADDRESSES ** 

20(14) 4 PDCBPCNT Address of DLZBPCO0O 
normal terminaticn MPS 
cleanup routine in 
DLZMPCO00 

24(18) 4 PDCBPCAT Address of DLZBPCO0O 
abnormal termination MPS 
cleanup routine in 
DLZMPCO00 

28(1C) 4 PDCSYSTT Address of system 
abnormal termination MPS 
cleanup routine in 
DLZMPC00 

32(20) PDCAEND End of problem 


determination control 
area 
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PDIR_ -—- PSB DIRECTORY 


DSECT Name: DLZPDIR 


The PSB directory contains an entry for every PSB (program 
specification block) that may run under DL/I control. The PSB 
directory is part of the DL/I nucleus and is created during DL/I 
system definition for online processing. The start address of the PSB 
directory (SCDDLIPS) and the entry length (SCDDLIPL)are contained in 
the SCD (system contents directory). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag offset Flag 

Name Dec (Hex) Code (Hex) 
PDIRADDR 8 (08) 

* PDIRBAD 19 (13) 01 

*PDIRBPLI 19 (13) 08 
PDIRCODE 18 (12) 

*PDIRCDELT 18 (12) 02 

* PDI RCDUPL 18 (12) 10 
PDIREMOT 24 (18) 

*PDIREXC 18 (12) 40 
PDIRLEN 28 (1C) 

J *PDIRMPLI 18 (12) 08 
*PDIRNOSC 19 (13) 80 
*PDIRNTNT 19 (13) 10 

PDIROPTC 19 (13) 
*PDIRPLI 18 (12) 20 
PDIRPSBL 12 (0C) 

| *PDIRREM 19 (13) 20 

*PDIRSCHD 19 (13) 40 
PDIRSILA 20 (14) 

PDIRSYM 0 (00) 
*PDIRTFAL 18 (12) 01 
*PDIRUPD 18 (12) 80 

| * PDIRXPSB 19 (13) 04 
*PDIRZWA 16 (10) 
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RECORD LAYOUT - PDIR 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 0) PDIR Label used to estaklish 
address 
0 (00) 8 PDIRSYM PSB execution name - 
converted from name 
supplied during PSEGEN 
8 (08) 4 PDIRADDR PSB address (contains 0 
for remote PSB) 
12(0C) 4 PDIRPSBL Storage required for PSB 
16(10) 2 PDIRZWA Storage required for 
index workarea 
18(12) 1 PDIRCODE PSB code byte 
PDIRUPD 80 This PSB is update 
sensitive 
PDIREXC 40 This PSB requires DMB 
exclusive control 
PDIRPLI 20 This PSB for PL/I 
PDIRDUPL 10 This PSB is duplicate 
PDIRMPLI 08 MPS batch application 
language is PI/I 
PDIRDELT 02 This PSB is delete 
sensitive 
PDIRTFAL 01 PSDB-SDB chaining error 
detected during cnline 
task termination 
19(13) 1 PDIROPTC PSB scheduling ccdes 
PDIRNOSC 80 Do not schedule this PSB 
PDIRSCHD 4O This PSB is scheduled 
PDIRREM 20 This PSB is remote 
PDIRNTINT 10 This PSB is waiting for 
intent 
PDIRBPLI 08 ** Reserved ** 
PDIRXPSB 04 Remote PSB with local 
component 
PDIRBAD 01 PSB initialization failed 
20(14) 4 PDIRS ILA Address of PSB segment 
intent list 
24(18) 4 PDIREMOT Address of RPDIR entry 
for this remote PSB 
28(1C) PDIRLEN PSB directory entry 
length 
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PPST - PST PREFIX 


DSECT Name: DLZPPST 


The PST prefix contains data required for user task scheduling ina 
CICS/VS online environment. It also contains a section used by kLuffer 
handler for enqueue/dequeue information and another section used for 
online segment intent scheduling. The PST prefix is logically fart of 
the PST (partition specification table). However, in order to orerate 
more efficiently in a virtual storage environment, all PST prefixes 
(one for batch) are organized so that they are physically located in 
one contiguous area. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) _Code (Hex) 
PPST 0 (00) 
*PPSTA 4 (04) 01 
*PPSTACT 4 (04) 04 
*PPSTBF 4 (04) 10 
PPSTCA 5 (05) 
PPSTCB 1 (01) 
PPSTCF 0 (00) 
PPSTCHAI 28 (1C) 
PPSTCW 3 (03) 
PPSTECB 2 (02) 
PPSTEND 32 (20) 
PPSTEXCI 12 (0C) 
PPSTID 8 (08) 
PPSTIND 4 (04) 
*PPSTIO 4 (04) 80 
PPSTLEN 32 (20) (See segment intent scheduling section) 
PPSTMATR 24 (18) 
*PPSTMPS 4 (04) 08 
*PPSTMSDL 4 (04) 02 
PPSTPECT 16 (10) 
PPSTPDIR 12 (0C) (See segment intent scheduling section) 
*PPSTSI 4 (04) 40 
PPSTSUPO 20 (14) 
*PPSTTC 4 (04) 20 
PPSTTCA 9 (09) 
PPSTTSKP 16 (10) (See segment intent scheduling secion) 
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RECORD LAYOUT — PPST 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0 (00) 1 PPST 
0(00) 1 PPSTCF Prefix chain forward 
pointer 
1(01) 1 PPSTCB Prefix chain backward 
pointer 
2(02) 1 PPSTECB POST/WAIT byte of PST ECB 
3 (03) al PPSTCW PST prefix program 
isolation wait chain 
4 (04) 1 PPSTIND Task schedule and 
dispatch indicators 
PPSTIO 80 Waiting for I/O 
PPSTSI 40 Cannot schedule due to 
segment intent conflict 
PPSTTC 20 Cannot schedule - task 
count limit exceeded 
PPSTBF 10 Task enqueued by Luffer 
handler 
PPSTMPS 08 Indicates MPS task 
PPSTACT O4 This is current task 
PPSTMSDL 02 Scheduled by BPC 
PPSTA O1 Task is scheduled 
5 (05) 3 PPSTCA Address of PST 
8(08) i PPSTID Task ID 
9(09) 3 PPSTTCA Task TCA address 


***This section used by buffer handler for enqueue/dequeue*** 


12(0C) 4 PPSTEXCI 
16(10) 4 PPSTPECI 
20 (14) 4 PPSTSUPO 
number 


Enqueuve/dequeue fointers 
for existing control 

interval: 
Byte 0-1 
Byte 2-3 


buffer number 
PPST number 
of task next 
in chain 


Enqueue/dequeuve fointers 

for pending control 

interval: 

Byte 0-1 = buffer number 

Byte 2-3 = PPST number 
of task next 
in chain 


Enqueue/dequeue fointers 
for subpool space: 
Byte 0-1 = subpool 


Byte 2-3 = PPST number 
of task next 
in chain 
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Offset Field/Flag Flag 


Dec (Hex) Length Name _ Code (Hex) Meaning 
24(18) 4 PPSTMATR Enqueue/dequeue rfointers 


for interlock detection 
Matrix space: 


Byte 0-1 = X*00" 

Byte 2-3 = PPST number 
of task next 
in chain 

28(1C) 4 PPSTCHAI Enqueue/dequeue pending 


control interval chain 
field pointers: 


Byte 0-1 = buffer number 
Byte 2-3 = PPST number 
of task next 
in chain 
32(20) PPSTEND End of prefix DSECT 


**#*This section used for online segment intent scheduling*** 


12(0C) 4 PPSTPDIR Task PDIR entry address 
16(10) 1 PPSTTSKP Task dispatching priority 
32 (20) PPSTLEN Length of PST prefix 
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PSB - PSB Prefix 
DSECT Name: PSB 
The PSB prefix is described as part of the general structure and 


description of the program specification block (PSB) 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag offset Flag 
Name totes Dec(Hex) . Code (Hex) 
PSB 0 (00) 
PSBCODE 29 (1D) 
PSBDBOFF 34 (22) 
*PSBFLS 29 (1D) 01 
PSBFRTA 0 (00) 
PS BINDEX 28 (1C) 
PSBIOASZ 1 (01) 
PSBIOAWK 18 (24) 
PSBLIST 36 (24) 
*PSBLOGDB 29 (1D) 02 
PSBNDXWK 20 (14) 
PSBNPLI 29 (1D) 20 
*PSBPLI 29 (1D) 10 
PSBPST 12 (0c) 
PSBSEGWK 8 (08) 
PSBSIZE 30 (1E) 
PSBIPOFF 32 (20) 
PSBVMID 0 (00) 
*PSBV11 0 (00) 01 
PSBXIOWK 4 (04) 
PSBXPCB 16 (10) 
RECORD LAYOUT - PSB 
Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 1 PSB 
0 (00) 1 PSBVMID DOS DL/I version ID 
PSBV11 01 Version 1.1 or later 
0(00) 4 PSBFRTA Field exit routine 
address. If no entries 
in table, low order 3 
bytes = 0 (used cnly 
during initialization) 
1(01) 3 PSBIOASZ Size of the PSB I/O work 


area whose address is in 
PSBIOAWK. This field 
contains a 16-bit logical 
number. 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
4(04) 4 PSBXIOWK ‘Address of index I/0 work 


8 (08) 


12(0C) 


16(10) 
20(14) 


24(18)- 


28(1C) 


29(1D) 


30(1E) 
32(20) 


34(22) 


36(24) 
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4 PSBSEGWK 
4 PSBPST 
4 PSBXPCB 
4 PSBNDXWK 
4 PSBIOAWK 
1 PSBINDEX 
1 PSBCODE 
PSBNPLI 
PSBPLI 
PSBFLS 
PSBLOGDB 
2 PSBSIZE 
2 PSBTPOFF 
2 PSBDBOFF 
Var PSBLIST 
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20 


10 
01 


02 


area or user's version of 
a segment built by 
retrieve 


Address of variable 
length segment work area 


PST address if PSB is 
scheduled or active 


.Address of index PCB 


Address of index 
maintenance work area or 
pointer to the field exit 
parameter list 


Address of I/O work area 
(Not used in DL/I DOS/VS) 


PSB flags 
PSB is for non-PL/L 


language 


PL/I is source Tanguaqe 


-PSB contains field 


sensitive segment 


PSB retrieves a logical 
data base 


PSB size 


(Not used in DL/I DOS/VS) 


Offset from the PSBLIST 
to first DB PCB 


Beginning of PCB list. 
Note: this field is a 


list of fullword pointers 
containing PCB addresses. 
Last PCB address word has 
byte 0, bit 0 = 1. List 
may contain a maximum of 
64 addresses. For PL/I 
programs these pointers 
are to the dope Vector 


Tables in which the first 


word is a pointer to the 
associated PCB. 


PSDB - PHYSICAL SEGMENT DESCRIPTION BLOCK 
Bobet Nate DMBPSDB 
The PSDB is described as part of the general structure and description 


of the data management block (DMB) 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag offset Flag 
Name Dec (Hex) Code (Hex) 
DMBCKL 14 (OE) 

*DMBCPT 24 (18) 04 
*DMBCPTIT 24 (18) 01 
*DMBCPTKY 24 (18) 02 
*DMCCTR 7 (07) 80 
DMBDCB 6 (06) 

DMBDL 10 (OA) 

DMBDLT 13 (OD) 

*DMBDRL 13 (0D) 03 
*DMBDRP 13 (OD) 02 
*DMBDRV 13 (OD) 01 
* DMBEX 16 (10) 80 
DMBFDBA 16 (10) 

DMBFLAG 32 (20) 

DMBFSDB 20 (14) 
*DMBIFST 12 (0C) 10 
*DMBIHERE 12 (0c) 30 
*DMBILST 12 (0C) 20 
*DMBIRL 12 (0c) 03 
* DMBIRP 12 (0c) 02 
*DMBIRV 12 (0C) 01 
DMBISRT 12 (0c) 

* DMBLCEX 32 (20) 20 
DMBLEV ~2 (02) 

*DMBLP 7. (07) 02 
*DMBL PEX 32 (20) 40 
DMBLST 32 (20) 

*DMBLTBK 7 (07) 04 
*DMBLTFD 7 (07) 08 
*DMBNXEX 32 (20) 10 
*DMBPI 24 (18) 80 
DMBPLEM 36 (24) 

*DMBFP 7 (07) 10 
DMBPPBK 5 (05) 

DMBPPFD 4 (04) 

DMBPRSZ 8 (08) 

DMBPSC 1 (01) 

DMBPSDBN 36 (24) 

*DMBPTBK 7 (07) 20 
*DMBPTFD 7 (07) 40 
DMBPTR 7 (07) 

*DMBRRL 13 (0D) oc 
*DMBRRP _ 13 (OD) 08 
*DMBRRV 13 (0D) 04 
DMBSC 0 (00) 

DMBSCTAB 25 (19) 

DMBSGMN 28 (1C) 
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Field/Flag 
Name 


DMBSGMX 
*DMBUP 
DMBUSE 
DMBVLDFG 
*DMBVILS 
*DMBXDES 
DMBXNULL 
*DMBXPROT 


offset 
Dec (Hex) 


30 
16 
16 
24 
24 
32 

3 
12 


(1E) 
(10) 
(10) 
(18) 
(18) 
(20) 
(03) 
(oc) 


Flag 
Code (Hex) 


40 
04 


04 
80 
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RECORD LAYOUT - PSDB 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 1 DMBSC Segrent code 
01 Root segment code 
1 (01) 1 DMBPSC Parent's segment code 
2(02) - DMBLEV Segment level 
3(03) 1 DMBXNULL (Not used in DL/I DOS/VS) 
4 (04) 1 DMBPPFD Pointer number in parent 
to first occurrence of 
segrent for parent 
5(05) 1 DMEPPBK Pointer number in parent 
to last occurrence of 
segment for parent 
6 (06) 1 DMEDCB ACB number 
7007) 1 DMBPTR Prefix flags 
DMBCTR 80 Counter present 
DMBPTFD 40 Segment has physical twin 
forward pointer 
DMB PT BK 20 Segrent has physical twin 
backward rointer 
DMBPP 10 Segment has physical 
parent pointer 
DMBLTFD 08 Segment has logical twin 
forward pointer 
DMBLTBK 04 Segment has logical twin 
kackward pointer 
DMBLP 02 Segrent has logical 
parent pointer 
8 (08) 2 DMEPRSZ Prefix length of segment 
| 10(0A) 2 DMBDL Data length of segment 
12(0C) uf DMBISRT Insert rules 
DMBXPROT 80 System data in index is 
protected 
DMBIHERE 30 If no key field, insert 
at current position 
DMBILST 20 If no key field, insert 
after existing segment 
DMBIFST 10 If no key field, insert 
before existing segment 
DMBIRL 03 Insert rule is logical 
DMBIRP 02 Insert rule is physical 
DMBIRV 01 Insert rule is virtual 
13(0D) 1 DMBDLT Delete/rerlace rules 
DMBRRL oc Replace rule is logical 
DMBRRP 08 Replace rule is physical 
DMBRRV 04 Replace rule is virtual 
DMBDRL 03 Delete rule is logical 
DMBDRP 02 Delete rule is physical 
DMBDRV 01 Delete rule is virtual 
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Offset Field/Flag Flag 

Dec (Hex) Length Name - Code (Hex) Meaning 

14(0E) 2 DMBCKL Concatenated key length 
of parent of this segment 

16(10) 1 DMBUSE Code Byte 

DMBEX 80 This PSDB in use 
exclusively 

DMBUP 4Q This PSDE in use for 
update. Bits 2-7 contain 
a count of read-only 
users 

16(10) 4 DMBFDBA Address of FDBs for this 
segment 

20(14) 4 DMEFSCB Address of first SDB for 
this segment 

24(18) 1 DMBVLDFG Variable length data flag 

DMBPI 80 Program isolation should 
be done for this segment 

DMBC PT 08 Segment has compression 
routine 

DMBVLS 04 Segment is variakle 

length 

DMBC PTKY 02 Compression routine has 
key expand routine 

DMECPTIT 01 Compression routine has 
intialization processing 

25(19) 3 DMBESCTAE Address of segment 
compaction table 

28(1C) 2 DMBSGMN If variakle length 
segment; minimum length 
of segment 

30(1E) 2 DMBSGMX If variable length 
segment; maximum length 
of segment 

32(20) 1 DMBFLAG Secondary list flag 

DMBLPEX 40 A logical parent exists 
(segment is a logical 
child) 

DMBLCEX 20 One or more logical 
children exists (segment 
is a logical parent) 

DMBNXEX 10 One or more indexes exist 

DMBXDEX 04 An indexed segment exists 

32 (20) 4 DMBLST Address of secondary list 
for this segment 
36(24) DMB PSD BN End of one PSDB entry 
36(24) DMBPLEN Length of each PSDB entry 
(DMBPSDBN minus DMBSC) 
¥ 
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PSIL - PSB SEGMENT INTENT LIST 


DSECT Name: DLZPSIL 


The PSB segment intent list is pointed to from the PSB directory and 
is a list of all the DMBs which may be used by that PSB (prograr). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


*PSILBFRI 
*PSILDBEX 
* PSILDBUP 
PSILDIRA 
PSILDIRN 
PSILDMBN 
PSILGOPO 
PSILLNGH 
PSILNOPI 
PSILNREF 
PSILNTNT 
PS ILSEGD 


Offset Flag 
Dec (Hex) Code(Hex) 
8 (08) 20 
8 (08) 80 
8 (08) 40 
0 (00) 
4 (04) 
0 (00) 
8 (08) 10 
9 (09) 
8 (08) 04 
8 (08) 10 
8 (08) 
10 (0A) 
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RECORD LAYOUT - PSIL 








Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 8 PSILDMBN DMB name for this list entry 
~ overlaid during initialization 
0(00) 4 PSILDIRA Address of DMB directory entry 
- resolved during initialization 
4(04) 4 PSILDIRN DMB number of this DMB 
8 (08) 1 PSILNINT _ Segment intent descriptor 
byte 
PSILDBEX 80 PSB contains a PCB which requires 
exclusive control for this DMB 
PSILDBUP 40 PSB contains a PCB which is 
update sensitive 
PSILBFRI 20 Buffer pool space required 
for this KSDS 
PSILGOPO 10 PSB references are all “GO' 
PS ILNREF 08 Data base is not referenced 
PSILNOPI 04 No translate for PI 
9(09) 1 PSILLNGH Length of this entry © 
in list 
10 (0A) Var PSILSEGD Segment intent bits. 


Each segment in the DMB pointed to by an intent list 
entry is described by 2-bit fields begining at PSILSEGD. There is a 
list entry for each DMB referenced in the associated PSB. The two 
bits represent the PSB"'s sensitivity to each PSDB and have the 
following meanings: 

Bit Meaning 

00 PSB not sensitive to the segment 

01 PSB read-only sensitive 

10 PSB is update sensitive 

11 PSB requires exclusive control (HISAM root insert) 


1111 1111 PSILNS "X‘FF"*" mask used to 
test four segments for 
no sensitivity 


1,145. 161. PSILRO "X"AA"" mask used to 
test four segments for 
update 


The kits are allocated to 
segments in the following 
Manner: 





BIT 

SEGMENT 

| 12(0C) 4 PSILEND End of PSB intent list 
indicator 
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PST.- PARTITION SPECIFICATION. TABLE 


DSECT Name: DLZPST 


One partition specification table (PST) exists for each task in an 
online or batch processing partition. All DIL/I resources allocated to 
the task can ke located through the PST. The PST also contains 
pointers to the task I/O area and any segments currently associated 
with the task. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag offset Flag 
Name Dec(Hex) Code (Hex) 
*DBLCMC 440 (1B8) 00 
*DBLFSE1 440 (1B8) 00 
*DBLFSE2 44Q (1B8) 04 
* DBLLASTC 440 (1B8) 08 
*DBLLGDLT 440 (1B8) 60 
*DBLNDXC 440 (1B8) 80 
* DBLNEWBL 440 (1B8) 01 
* DBLNTCR 440 (1B8) 70 
* DBLOOPS 440 (1B8) OA 
*DBLPHYD 440 (1B8) 20 
* DBLP HYL 440 (1B8) 40 
* DBLP HYR 440 (1B8) 10 

| *DBLPHYRO 440 (1B8) 02 

PSTABIND 72 (048) 

PSTACBNM 150 (096) 

PSTACCT 92 (05C) 
*PSTBATCH 468 (1D4) 80 
*PSTBDCAL 137 (089) 10 
*PSTBFALT 136 (088) 05 
*PSTBEMPT 136 (088) 04 

PSTBFUSE 164 (0A4) 
*PSTBKLCT 136 (088) 01 

PSTBLKNM 144 (090) 
*PSTBIMPF 136 (088) 03 

PSTBUFFA 160 (0OA0) 
*PSTBYALT 136 (088) 06 
*PSTBYEND 137 (089) 28 
*PSTBYLCT 136 (088) 02 

PSTBYTNM 152 (098) 
*PSTCANLI 487 (1E7) 40 
*PSTCHKP 469 (1D5) 04 
*PSTCIOAF 178 (0B2) 04 
* PSTCLOK 137 (089) 00 

PSTCLRWI 258 (102) 

PSTCNVB 479 (1Df) 

PSTCODE1 68 (044) 

PSTCPLN 184 (0B8) 

PSTCTGFL 224 (0EO) 

PSTCTGL1 248 COF8) 

PSTCTGL2 251 (OFB) 

PSTCTGNM 184 (0B8) 

PSTCTGPL 184 (0B8) 

PSTCTGRT 252 (OFC) 

PSTCTIGWK 248 (0OF8) 
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Field/Flag offset Flag 
Name Dec (Hex) code (Hex) 


PSTCURWA 344 (158) 

PSTCWKLN 252 (OFC) 

PSTDATA 156 (09C) 

PSTDEPCB 132 (084) 

PSTDCHKP 128 (080) 

PSTDDLET 120 (078) 

PSTDELTA 616 (268) 

PSTDGHN 108 (06C) 

PSTDGHNP 112 (070) 

PSTDGHU 104 (068) 

PSTDGN 96 (060) 

PSTDGNP 100 (064) 

PSTDGU 92 (05C) 

PSTDISRT 116 (074) 

PSTDLIWA 44 (02C) 

PSTDLIWB 48 (030) 

PSTDLIWC 52 (034) 

PSTDLIWD 56 (038) 

PSTDLIWE 60 (03C) 

PSTDLIWF 64 (040) 

PSTDLIWO 4 (004) 

PSTDLIW1 8 (008) 

PSTDLIW2 12 (00c) 

PSTDLIW3 16 (010) 

PSTDLIW4 20 (014) 

PSTDLIW5 24 (018) 

PSTDLIW6 28 (01c) 

PSTDLIW7 32 (020) 

PSTDLIWS8 36 (024) 

PSTDLIW9 40 (028) 

PSTDLROM 352 (160) 

PSTDLTWA 348 (15C) 

PSTDMBNM 148 (094) 

PSTDREPL 124 (07C) 

PSTDSGA 140 (08c) 

* PSTDUMPI 487 (1E7) 80 
* PSTENDDA 137 (089) 24 
*PSTEOD 137 (089) 2c 
*PSTERASE 136 (088) OA 

PSTERCD1 470 (1D6) 

PSTERCD2 471 (1D7) 

PSTERCOD 470 (1D6) 

PSTERDT1 472 (1D8) 

PSTERDT2 479 (1DF) 

PSTERIND 487 (1E7) 
*PSTERMSP 72 (048) 80 
*PSTEXPAD 258 (102) 40 
*PSTFBSPC 136 (088) o4 

PSTFLD 596 (254) 

PSTFLDAL 604 (25C) 

PSTFLDC 608 (260) 

PSTFLDE 604 (25C) 

PSTFLDN 600 (258) 

PSTFNCTN 136 (088) 
*PSTFRBLK 137 (089) 30 
*PSTFRSPC 136 (088) 02 
*PSTGBSPC 136 (088) 03 
* PSTGETNX 136 (088) OR 
*PSTGTDS 136 (088) 04 
*PSTGTRAP 136 (088) 04 
*PSTGTSPC 136 (088) 01 


PSTGVPL 236 (0EC) 
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Field/Flag 
Name 


PSTGVWKL 
*PSTHDWIP 
* PSTHISES 
*PSTHISMR 
*PSTHLPI 
*PSTINLD 
*PSTINTINT 
* PSTIOERR 

PSTIQPRM 
*PSTIWAIT 

PSTLIPRM 

PSTLNGTH 
*PSTLODU 
* PSTLODUH 
* PSTLOGIP 

PSTLOGQ 

PSTLOGWA 

PSTMI 

PSTMROCO 
* PSTMSPUT 
*PSTNO ERR 

PSTNORO 
*PSTNOSPC 
*PSTNOTFD 
*PSTNPLSP 

PSTN UMRO 

PSTNUMWT 
* PSTNWBLK 
*PSTOCALL 
* PSTO CBAD 
* PSTOCCLS 
*PSTOCDCB 
*PSTOCDMB 
*PSTO CDSG 
* PSTOCLD 
* PSTOCOPN 
*PSTOCPCB 

PSTOFFST 
* PSTOLTW 

PSTOPEN 
*PSTOPEN1 
*PSTPBROC 

PSTPCPGM 

PSTPCPSB 

PSTPCT1 

PSTPCT2 
*PSTPGUSR 
*PSTPIPLU 
*PSTPISIU 
*PSTPLI 

PSTPLIPR 

PSTPOSEL 

PSTPREAD 

PSTPREAR 

PSTPRIGT 
*PSTPRVWI 

PSTPSB 
* PSTPUTKY 
* PSTQDEO 
*PSTOENQ 

PSTQLEV 
* PSTOLEXC 


offset 
Dec (Hex) 


236 
178 
178 
470 
469 
137 
68 
137 
72 
258 
488 
1144 
468 
468 
068 
440 
436 
76 
181 
136 
180 
568 
137 
137 
137 
256 
257 
137 
136 
136 
136 
136 
136 
136 
136 
136 
136 
138 
68 
620 
620 
178 
“452 
460 
468 
469 
136 
137 
137 
469 
560 
180 
00 
172 
612 
68 
88 
136 
136 
136 
572 
572 


(OEC) 
(0B0) 
(OBO) 
(1D6) 
(1D5) 
(089) 
(044) 
(089) 
(048) 
(102) 
(1E8) 
(478) 
(1D4) 
(1D4) 
(044) 
(1B8) 
(1B4) 
(O4C) 
(0B5) 
(088) 
(0B4) 
(238) 
(089) 
(089) 
(089) 
(100) 
(101) 
(089) 
(088) 
(088) 
(088) 
(088) 
(088) 
(088) 
(088) 
(088) 
(088) 
(0 8A) 
(044) 
(267) 
(26C) 
(OBC) 
(1¢4) 
(1cc) 
(1D4) 
(1D5) 
(088) 
(089) 
(089) 
(1D5) 
(230) 
(OB4) 
(00) 

(OAC) 
(264) 
(044) 
(058) 
(088) 
(088) 


(088) - 


(23C) 
(23C) 
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Flag. 
Code( Hex) 


08 


07 


40 
01 


08 
0D 
08 
08 


08 
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Field/Flag 


Name 


* PSTQLRO 
*PSTQLUPD 
+*PSTQPUR 
* PSTQRBDC 
* PSTQRDDL 
*PSTOQRNSE 
*PSTQROOP 
* PSTORWR 
* PSTOVER 
PSTRAEND 
PSTREAL 
+ PSTRDERR 
PSTRETRE 
PSTRPSTA 
PSTRRDF 
PSTRRDL 
PSTRTCDE 
+*PSTSABND 
PSTSAVRE 
PSTSAVTR 
+* PSTSCALL 
PSTSCDAD 
*#PSTSCHED 
PSTSCATA 
PSTSEG 
PSTSEGL 
+*PSTSMRO 
PSTSPL 
* PSTSTLBG 
+ PSTSTLEQ 
PSTSUBNM 
PSTSUIN 
PSTSV1 
PSTSV2 
PSTSV3 
PSTSV4 
PSTSV5 
PSTSV6 
PSTSV7 
PSTSWI 
PSTSWKAR 
PSTSWKL 
*PSTTABND 


' PSTTSKID 


*PSTUDR 
PSTUIB 
*PSTULU 
PSTUSER 
*PSTUSM 
*PSTUST 
PSTVLSR 
PSTVSL 
* PSTWABUF 
*PSTWRITE 
PSTWRKD1 
PSTWRKD2 
PSTWRKD3 
PSTWRKD4 
PSTWRKD5 
PSTWRKD6 
PSTWRKD7 
PSTWRKT1 


Offset 
Dec(Hex) 


572 (23C) 
572 (23C) 
136 (088) 
137 (089) 
137 (089) 
137 (089) 
137 (089) 
137 (089) 
136 (088) 
444 (1BC) 
206 (0CE) 
137 (089) 
224 (0E0) 
580 (244) 
572 (23C) 
576 (240) 
137 (089) 
72 (048) 
184 (0B8) 
584 (248) 
68 (044) 
68 (044) 
68 (044) 
206 (OCE) 
84 (054) 
80 (050) 
178 (0B2) 
212 (0D4) 
136 (088) 
136 (088) 
176 (0BO) 
168 (0A8) 
640 (280) 
712 (2C8) 
784 (310) 
856 (358) 
928 (3A0) 
1000 (3E8) 
1072 (430) 
178 (0B2) 
184 (0B8) 
206 (OCE) 
72 (048) 
260 (104) 
468 (1D4) 
276 (114) 
468 (1D4) 
76 (O4C) 
468 (1D4) 
468 (1D4) 
250 (OFA) 
206 (OCE) 
144 (090) 
136 (088) 
316 (13C) 
320 (140) 
324 (144) 
328 (148) 
332 (14C) 
336 (150) 
340 (154) 
296 (128) 


Flag 


code (Hex) 


20 


80 


10 


02 


oc 
09 


10 
04 
02 
01 
08 


80 
08 
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Field/Flag offset Flag 


Name Dec{Hex) Code (Hex) 

PSTWRKT 2 300 (12C) 

PSTWRKT3 304 (130) 

PSTWRKT4 308 (134) 

PSTWRKT5 312 (138) 

PSTWRK1 280 (118) 

PSTWRK2 284 (11C) 

PSTWRK3 288 (120) 

PSTWRK4 292 (124) 
*PSTWROSI 137 (089) 20 
*PSTXCONM 469 (1D5) 80 
*PSTXMDLT 136 (088) AO 
*PSTXMISR 136 (088) A2 
*PSTXMRPL 136 (088) A1 
*PSTXMUNL 136 (088) A3 
*PSTXPRTM 469 (1D5) 40 

PSTXPSV1 264 (108) 

PSTXPSV2 268 (10C) 

PSTXPSV3 272 (110) 


Licensed Material - Property of IBM 5-111 


RECORD LAYOUT 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(000) 4 PSTPREAD Address of this PST 
prefix 
4(004) 4 PSTDLIWO Action modules work area 
HD unload (DLZURGUO) 
return address for 
retrieve 
(008) 4 PSTDLIW1 Action modules work area 
12(00C) 4 PSTDLIW2 Action modules work area 
16(010) 4 PSTDLIW3 Action modules work area 
20(014) 4 PSTDLIW4 Action modules work area 
24(018) 4 PSTDLIWS5 Action modules work area 
28(01C) 4 PSTDLIW6 Action modules work area 
32(020) 4 PSTDLIW7 Action modules work area 
36 (024) 4 PSTDLIW8 Action modules work area 
40 (028) 4 PSTDLIW9 Action modules work area 
44(02C) 4 PSTDLIWA Action modules work area 
48 (030) 4 PSTDLIWB Action modules work area 
52(034) 4 PSTDLIWC Action modules work area 
56(038) 4 PSTDLIWD Action modules work area 
60(03C) 4 PSTDLIWE Action modules work area 
64(040) 4 PSTDLIWF Action modules work area 


**#USER CALL PROCESSING SECTION*#* 


68 (044) 


68 (044) 


72 (048) 


5-112 


1 


4 


4 
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PSTCODE1 


PSTSCALL 
PSTINTNT 


PSTSCHED 
PSTPRVWT 


PSTOLTW 


PSTLOGIP 
PSTSCDAD 


PSTABIND 


PSTERMSP 


80 
40 


10 
08 


04 


02 


80 


PST for system call 
Cannot schedule, intent 
not satisfied 

OK to complete scheduling 
Logger private wait 
indicator 


Another task waiting for 
resource owned by this 
task. Note: If PSTINTNT 
and PSTSCHED are both 
set, DL/I backout is in 
control. 


Log I/O in progress 
Address of SCD 
Task/system ABEND 
indicator 


PUT error message 
indicator 


offset 


Field/Flag Flag 


Dec(Hex) Length Name __ Code (Hex) Meaning 

PSTSABND 20 System ABEND indicator 
= PSTTABND 10 Task ABEND indicator bit 
72 (048) 4 PSTIQPRM Address of caller"s 

parameter list 

76(04C) 4 PSTMI Return segment indicator 
76(O4C) 4 PSTUSER Address of user's I/0 
area 
80(050) 4 PSTSEGL Retrieved segment length 
84(054) 4 PSTSEG Retrieved segment address 
88(058) 4 PSTPSB PDIR entry address 


***#USER TASK STATISTICS*#* 


92 (05C) 
92(05C) 
96(060) 


100 (064) 


104 (068) 


108 (06C) 


112 (070) 


116 (074) 


120 (078) 


124 (07C) 


128 (080) 


4 


4 


4 


PSTACCT 
PSTDGU 
PSTDGN 


PSTDGNP 


PSTDGHU 


PSTDGHN 


PSTDGHNP 


PSTDISRT 


PSTDDLET 


PSTDREPL 


PSTDCHKP 


*** ACTION MODULES SECTION*#¥# 


132 (084) 


136 (088) 


4 


1 


PSTDBPCB 


PSTFNCTIN 


Number of GU calls issued 
Number of GN calls issued 


Number of GNP calls 
issued 


Number of GHU calls 
issued 


Number of GHN calls 
issued 


Number of GHNP calls 
issued 


Number Of ISRT calls 
issued 


Number of DLET calls 
issued 


Number of REPL calls 
issued 


Number of CHKP calls 
issued 


Address of current PCB 


Function codes 


***EQUATES FOR BUFFER HANDLER FUNCTION CODES *** 


PSTBKLCT 


PSTBYLCT 


01 


02 


Locate relative kLlock 
number 

If HD, locate relative 
byte number. If HISAM or 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 


***EQUATES FOR OPEN/CLOSE FUNCTION CODES **#* 


PSTGBSPC 
PSTFBSPC 
PSTBFMPT 
PSTBFALT 


PSTBYALT 


PSTPGUSR 
PSTWRITE 
PSTSTLEQ 


PSTERASE 
PSTGETNX 


PSTSTLBG 


PSTPUTKY 


PSTMSPUT 


PSTOCDMB 
PSTOC PCB 


PSTOCALL 
PSTOCCLS 
PSTOCOPN 
PSTOCDCB 


PSTOC LD 
PSTOCDSG 
PSTOCBAD 


06 


07 
08 
09 


0A 
0B 


oc 


OD 


OE 


01 
02 


04 
00 
08 
10 


20 
40 
80 


HIDAM INDEX, read a 
record by RBA from a 
KSDS. If HISAM, read a 
record by RBA from an 
ESDS. 

Get buffer space 

Free buffer space 

Mark buffers enpty 

If HD, mark a buffer 
containing data altered. 
If HISAM or HIDAM INDEX, 
write a record by RBA to 
a KSDS. If HISAM, write 
a record by RBA to an 
ESDS 

Locate a relative byte 
number and mark buffer 
altered 

Purge all buffers altered 
by a task 

Write a new record to 
HISAM ESDs 

Read a record by key from 
a KSDS 

Erase a record in a KSDS 
Read the next record ina 
KSDS 

Read the record 
containing the first root 
in a KSDS 

Insert a record by key 
into a KSDS 

Insert record(s) 
sequentially into a KSDS 


Close DMB. Address of 
DMB in R2 

Close PCB. Address of 
PCB in R2 

Close all DMBs 

Close call. Bit 4 0 
Open call. Bit 4 1 
Open/close the DMB in 
PSTDCBNM. DSG address in 
PSTDSGA 

Open for load 

Open the CSG in PSTDSGA 
Open unsuccessful 


***EQUATES FOR SPACE MANAGEMENT FUNCTION CODES*#* 
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PSTGTSPC 


PSTFRSPC 


PSTBTMPF 


80 
01 


02 


03 
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Backout in control 

Get space for segment. 

R5 contains pointer to 

PSDB 

Free space for segment. 
R5 contains pointer to 
PSDB 

Do bit map update 


| 137 (089) 


Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 


PSTGTRAP 


PSTXMDLT 


PSTXMRPL 


PSTXMISR 


PSTXMUNL 


PSTQENQ 
PSTQVER 
PSTQDEQ 
PSTQPUR 


PSTRT CDE 


PSTCLOK 
PSTGTDS 


PSTIOERR 
PSTRDERR 
PSTNOSPC 
PSTBDCAL 
PSTNOTFD 
PSTNWBLK 
PSTNPLSP 


PSTWROSI 


PSTENDDA 


PSTBYEND 


PSTEOD 


PSTINLD 


04 


AO 


Al 


A2 


A3 


00 
04 
08 


oc 


*#*#EQUATES FOR BUFFER HANDLER RETURN CODES*#** 


00 
04 


24 


28 


2c 


34 


***SPACE MANAGEMENT RETURN CODES *** 


Get space close to RAP in 
PSTBYTNM 


***#EQUATES FOR INDEX MAINTENANCE FUNCTION CODES**#* 


Perform index maintenance 
for segment to be deleted 
Perform index maintenance 
for segment to be 
replaced 

Perform index maintenance 
for segment to be 
inserted 

Perform index maintenance 
for segment to be 
unloaded 


**#*#EQUATES FOR PROGRAM ISOLATION FUNCTION CODES*#** 


Enqueue (Queueing 
facility) 

Verify (Queueing 
facility) 

Dequeue (Queueing 
facility) 

Purge (Queueing facility) 


Return codes 


No error occurred 

RBN is beyond the end of 
the data set 

I/O error 

Permanent read error 

No space for adds 

Illegal call 

No record found (retrieve 
by key) 

New block was created in 
the buffer pool 
Insufficient space in the 
buffer pool 

Size of requested buffer 
exceeds the size of 
buffers in any subrool 
End of data set. No 
record returned 

Key or RBA higher than 
the highest key cr RBA in 
the data set 

End of data set reached 
on a request issued by 
open 

Invalid request during 
data set loading 
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offset Field/Flag Flag 
Dec( Hex) Length Name Code (Hex) Meaning 
PSTFRBLK 30 Block not used due to 
distributed free space 
parameter 
PSTBIMPF 03 Bit map update required 


***EQUATES FOR PROGRAM ISOLATION RETURN CODES*** 


| 138co8a) 
] 140 (08c) 


144(090) 


148 (094) 
150 (096) 
151 (097) 
152(098) 


156 (09C) 
160 (0A0) 


PoP ow 


4 


4 


PSTQRWR 

PSTQROOP 
PSTQRDDL 
PSTQRBDC 
PSTQRNSE 


PSTPISIU 
PSTPIPIU 
PSTOFFST 


PSTDSGA 


PSTBLKNM 
PSTWABUF 


PSTDMBNM 


PSTACBNM 


PSTBYT NM 


PSTDATA 


PSTBUFFA 


01 
02 
04 
08 
10 


40 
80 


80 


Wait was required 

Other owners present 
Terminated due to 
deadlock 

Terminated due to bad 
call 

Terminated. Insufficient 
storage 

Secondary index updated 
Primary index updated 


Offset to PSTDATA from 
start of buffer 


Address of DSG portion of 
the JCB 


Relative block number 
Buffer is being used as a 
workarea and is not 
associated with an RBA 
DMB number 

ACB number 

**Reserved** 

RBA or relative record 
number. High order byte 
contains X‘'80" if request 
is for HISAM ESDS 
Address of requested data 


Address of buffer prefix 


*+**BUFFER HANDLER AND SPACE MANAGEMENT SECTION*#¥* 


| 164 c0a4) 


| 168 (oas) 
| 172 (oac) 
| 176(0B0) 


| 178 (oB2) 


5-116 
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PSTBF USE 


PSTSUIN 


PSTPREAR 


PSTSUBNM 


PSTSWI 


Address of the buffer 
prefix to ke used 


Address of the subpool 
information table to be 
used 


Beginning address of the 
buffer prefix area for 
the subpool information 
table used 


Subpool number used 
during this call 


Work space 


offset Field/Flag Flag 


Dec (Hex) Length Name . Code (Hex) Meaning 
PSTHDWIP 08 HD write in progress 
PSTC LOAF O04 CI in overflow area full 
PSTHISES 80 HISAM ESDS is being 
processed 
PSTSMRQ 02 Request made to the 
buffer handler by space 
management 
FST PBRQC FF Purge buffer request 
completed 
180 (OB4 ) 1 PSTPOSEL Count for position of use 
chain element 
PSTNOE RR 40 No error message 
| 181(0B5) 1 PSTMROCO Number of the row/column 
in the interlock 
detection matrix 
currently used by this 
task 
| 182 (0B6) 2 **Reserved** 
| 184(0B8) 40 PSTSAVRE Work area used by kLuffer 


*#**THIS AREA IS USED BY DLZDCI00 FOR SHOWCAT 


SUPPORT* *# 

| 184(0B8) 40 PSTSWKAR 

| 206 (ocE) PSTSDATA 
PSTRBAL 
PSTVSL 
PSTSWKL 

I 250 (ora) PSTVLSR 

| 212¢op4) PSTSPL 

| 236 (0EC) PSIGVPL 
PSTGVWKL 


handler when processing 
a request 


AND GETVCE FOR FBA 


SHOWCAT work area used by 
Space Management DLZGGSP0 
and Open/Close DIZDLOCO 


Location of needed data 
returned by SHOWCAT 

RBA data length (equated 
to 4) 

Volume serial number 
length (equated to 6) 
Length of SHOWCAT work 
area (equated to 64) 


Volume serial number save 
area 


SHOWCAT parameter list 
GETVCE parameter list 


Length of GETVCE work 
area (equated to 52) 


***THE FOLLOWING FIELDS ARE USED BY DL/I OPEN/CLOSE (DLZDLOCO) AND 
SPACE MANAGEMENT (DLZDHDSO) FOR VSAM CATALOG PARAMETER LIST WHEN 
PROCESSING AN OUT-CF-SPACE CONDITION FOR HIDAM DATA BASE*** 


184 (0B8) 40 PSTCTGPL 


PSTCPLN 


Area used as the VSAM 
catalog parameter list 
(CTGPL) by DLZGGSPO and 
DLZDLOCO to do locate 
Length of CTGPL block 
(equated to 40) 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
PSTCTGNM Number of CTGFL entries 


(equated to 1) 


224 (OE0O) 32 PSTRETRE Buffer handler subroutine 
linkage register (R14) 
Save area when procssing 
a request 


**#*THE FOLIOWING FIELDS ARE USED BY OPEN/CLOSE (DLZDLOCO) AND SPACE 
MANAGEMENT (DLZDHDSO) FOR VSAM FIELD PARAMETER LIST WHEN PROCESSING AN 
OUT-OF-SPACE CONDITION FOR HIDAM DATA BASE*#** 


224 (0E0) 24 PSTCTGFL Area used as the VSAM 
field parameter list 
(CIGFL) by DLZGGSPO and 
DLZDLOCO to do locate 


248 (OF8) 8 PSTCT GWK VSAM catalog work area 

248 (OF8) 3 PSTCTGL1 Catalog work area length 
1 

251 (OFB) 1 PSTCTGL2 Catalog work area length 
2 

252 (OFC) 4 PSTCTGRT VSAM catalog return area 
for HI-RBA 

PSTCWKLN Length of catalog work 


area (equated to 8) 


***#BUFFER HANDLER STATISTICS**+* 


256 (100) 1 PSTNUMRO Number of blocks read on 
this call 

257 (101) 1 PSTNUMWT Number of writes issued 
on this cail 

258 (102) 1 PSTCLRWI Buffer handler switch 

PSTIWAIT 80 IWAIT issued during this 

call 

259 (103) 1 **Reserv ed*t* 

260(104) 4 PSTTSKID Hashed task ID. High- 


order byte, binary date. 
Low-order three bytes, 
assigned in ascending 
sequence 


***THE FOLLOWING FIELDS ARE USED AS SAVE AREAS SO THAT THE DMB ECB CAN 
BE POSTED IF THE TASK IS CANCELED WHILE WAITING FOR I/O COMPLETION*## 


264 (108) 4 PSTXPSV1 User VSAM save area 
address 

268 (10C) 4 PSTXPSV 2 EXCPAD return address 

272 (110) 4 PSTXPSV3 EXCPAD parameter list 
address 


276(114) rT) PSTUIB Address of UIB 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
***#PST WORK AREAS*##* 


280 (118) 


284 (11C) 
288 (120) 
292(124) 
296 (128) 
300 (12C) 
304 (130) 
308 (134) 


312 (138) 


4 


4 


4 


PSTWRK1 PSTWRKn are work words 
for 

PSTWRK2 buffer handler (DLZDBH00) 

PSTWRK3 and data base logger. 

PSTWRK4 

PSTWRKT1 PSTWRKn is work space 

PSTWRKT2 preserved across calls 

PSTWRKT3 to the kuffer handler. 

PSTWRKT4 

PSTWRKT5 


***THE HIGH-ORDER BYTE OF PSTWRKT4 IS USED TO PASS THE FOLLOWING 
FUNCTION CODES TO INDEX MAINT ENANCE**#* 


316 (13C) 


320 (140) 
324 (144) 


328 (148) 


332 (14C) 
336(150) 
340 (154) 
344 (158) 


348(15C) 


352 (160) 


84 


04 Reinsert index 

03 Secondary indexes only 
02 Primary indexes only 
01 Both primary and 


secondary indexes 


PSTWRKD1 PSTWRKDn is work space 
for 

PSTWRED 2 use by DELETE/REPLACE, 

PSTWRKD 3 FLD Storage Manager, 

PSTWRED4 RETRIEVE, and 
LOAD/ INSERT. 

PSTWRKD5S 

PSTWRKD6 

PSTWRED7 — 

PSTCURWA Current delete work area 

PSTDLTWA First delete work area 
address 

PSTDLROM Save and maintenance work 


area for retrieve 


***DATA BASE LOG SECTION*** 


436 (1B4) 


440 (1B8) 


4 


4 


PSTLOGWA Work area address for log 
O/P 
PSTLOGQ Address of reuse queue 


QCB in pool 
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Offset 


Field/Flag Flag 


Dec(Hex) . Length Name Code (Hex) Meaning 
***DATA BASE LOG USE OF PSTWRK1*** 


PSTWRK1 


***DATA BASE LOG FUNCTION CODES*** 


***DATA BASE LOG USE OF PSTWRK2 - PSTWRK4**#* 


DBLNDXC 
DBLCMC 


DBLNTCR 
DBLLGDLT 
DBLPHYI 
DBLPHYD 
DBLPHYR 
DBLOOPS 


DBLLASTC 
DBLFSE1 


DBLFSE2 


DBLPHYRO 
DBLNEWBL 


80 
00 


o4 


02 
01 


Physical SDB address. If 
new block, low-order 2 
bytes are call ccunt. 
High-order byte used for 
function code 


Index maintenance call 
Bits 1-3 = 0, chain 
Maintenance call 

Counter maintenance 
Delete byte maintenance 
Insert 

Physical delete 

Replace 

No data. End of user 
call 

Last change for user call 
Bit 5 = 0, one FSE (if 
bits 1 or 2 on) 

Two FSEs (if bits 1 or 2 
on) 

Old copy of a replace 
New block log call 


Chain maintenance - Old copy of chain pointer (4 bytes). 
Insert/Delete - Offset and new FSES (6 or 12 bytes) 


444 (1BC) 4 


448 (1C0) 4 


***PARTITION/TASK INFORMATION*** 


| 452(1c4) 8 


I u60 acc) g 


lucsap4, 14 
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PSTRAEND 


PSTPCPGM 


PSTPCPSB 


PSTPCT1 
PSTBATCH 


PSTLODU 


PSTLODUH 
PSTHISMR 


PSTUST 
PSTUDR 


PSTULU 


PSTUSM 


End of root addressable 
area used by space 
manager 


**Reserved ** 


Application program name. 
If batch UDR, ULR,or ULU; 
DBD name 


PSB name 


Partition/task option 
PST is in batch partition 
Load utility 

Load HDAM DB 

HISAM data base recovery 
in process 

Statistics utility 

Data base recovery 
utility 

Data base load/unload 
utility 

Security maintenance 
utility 


offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
| 469 (1D5) 1 PSTPCT2 Program 


| 470 (1D6) 


| 470 (106) 
| 471107) 
1 472(1D8) 
| 479 (DF) 
| 479 (DF) 


| 487(157) 


i 488 (1E8) 


| 560 (230) 


| 568(238) 


| 572(23c) 


572 (23C) 
576 (240) 


580 (244) 


] 5984 (248) 


72 


12 


PSTXCONM 
PSTXPRTM 
PSTCHKP 
PSTHLPI 
PSTPLI 
PSTERCOD 


PSTERCD1 


PSTERCE2 


PSTERDT1 


PSTCNVB 


PSTERDT2 


PSTERIND 


PSTDUMPI 


PSTCANLI 


PSTLIPRM 


PSTPLIPR 


PSTNORO 
PSTQLEV 
PSTQLRO 
PSTQLUPD 
PSTQLEXC 
PSTRRDF 
PSTRRDL 


PSTRPSTA 


PSTSAVTR 


80 


40 


00 


08 


options/information 
overlaid on every call to 
the batch program request 
handler 

Exclude console message 
Exclude printer message 
User checkpoint call 
successful 

Application program using 
HLPI 

User program is PL/I 


Error message codes 


Error message code byte 
one 


Error message code byte 
two 


Error message data for 
ACB or DTF nare 


Doukleword for HD 
randomizing module 


Variable error message 
data 


Error routine indicator 
Issue dump after error 
message put 

Issue cancel after error 
message put 


Area to build user 
parameter list and 
register save area for 
MPS start and stcp calls 


PL/I region STXIT 
processor 


Number of owned resources 


Queue request level 
Read only level 
Update level 
Exclusive level 


Pointer to first RRD 
Pointer to last RRD 
Remote PST (RPST) 
address. Contains 0 if 
not scheduled to a remote 
PSB. 


Trace save area - used 
only if output = CICS 
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Offset 


Field/Flag Flag 


Dec (Hex) Length _Name_ Code (Hex) Meaning 

596 (254) 4 PSTFLD Start of field level 
descriptor block entries 

600 (258) 4 PSTFLDN Next available field 
level descriptor entry 

604 (25C) 4 PSTFLDE Field level descriptor 
area end address plus one 

PSTFLDAL 128 Initial field level 

descriptor area length 

608(260) 4 PSTFLDC Current field level 


***PARTIAL REORGANIZATION CONTROL FIELDS*** 


612 (264) 


616 (268) 


620 (26C) 


621 (2C1) 


624 (270) 


4 


16 


PSTPRTGT 


PSTDELTA 


PSTOPEN 


PSTOPEN1 40 


***#REGISTER SAVE AREA***# 


640 (280) 
712(2C8) 
784 (310) 


856 (358) 
928 (3A0) 


1000 (3E8) 


1072 (430) 


1144 (478) 
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72 
72 
72 


72 
72 


72 


72 


PSTSV1 
PSTSV2 


PSTSV3 


PSTSV4 


PSTSV5 


PSTSV6 


PSTSV7 


PSTLNGTH 


descriptor entry for this 
level (retrieve) 


Pointer to partial 
reorganization target 
table 


Partial reorganization 
HDAM RBA block number 
change 


Flag byte 


Open for partial 
reorganization 


** Reserved ** 


** Reserved ** 


PSTSV1 through PSTSV7 are 
seven register save areas 
required for processing 
DL/I user calls. The 
convention used in storing 
registers in these save 
areas is to begin with 
R14 and end with R12; 

that is, R14, R15, RO, Ri, 
R2, R3, R4, RS, R6, R77, 
R8, RY, R10, R11, and R12. 


Length of PST (PSTLNGTH- 
PST) 


QWA.- QUEUING FACILITY WORK AREA 


DSECT Name: 


The QWA contains information used by the queuing facility module to 
build control blocks and RDB queue headers. It also contains 
information used to locate the proper RDB for a particular resource 


ID. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


QWACPP 
* QWADDDF 
QWAFLG1 
QWAFLG2 
QWAFLG3 
QWAFLG4 
QWAFPP 
QWAHMLT 
QWANOQH 
* QWANPOF 
QWARDBOH 
QWAWFLD 


Offset 
Dec (Hex) Code (Hex) 


(14) 
(18) 
(18) 
(19) 
(1A) 
(1B) 
(10) 
(24) 
(20) 
(18) 
(28) 
(1c) 


Flag 


01 


02 
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RECORD LAYOUT - QWA 


Offset Field/Flag Flag 
Dec(Hex) Length Name Code (Hex) Meaning 
[ 000) 16 Module ID 
16(10) 4 QWAFPP First page pointer for 
free block management 
20(14) 4 QWACPP Current page pointer for 
free block management 
24(18) 1 QWAFLG1 First flag byte 
QWADDDF 01 Do deadlock detection 
QWANPOF 02 New prime owner exists 
25(19) 1 QWAFLG2 Second flag byte 
26(1A) 1 QWAFLG3 Third flag byte 
27(1B) 1 QWAFLG4 Fourth flag byte 
28(1C) 4 QWAWFLD Work field i 
32 (20) 4 QWANOQH Number of queue heads 
36(24) 4 QWAHMLT Hashing Multiplier 
40(28) 4 QWARDBQH RDB chain queue 
headers(one fullword 
entry) 
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RDB - RESOURCE DESCRIPTOR BLOCK 


DSECT Name: 


The RDB (Resource Descriptor Block) is used to describe a rescurce for 


which enqueues are outstanding. 


In addition, it acts as an anchor for 


the chains of RRDs (Resource Request Descriptors) that describe the 
current queue requests for the resource. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


| RDB 

RDBLEN 

RDBMAXL 
RDBNOWN 
RDBPOID 
RDBRDBB 
RDBRDBF 
RDBRID 

RDBRRDF 
RDBRRDL 
RDBUCID 


Offset 
Dec (Hex) Code(Hex) 


0 
24 
8 
12 
0 
4 
0 
16 
8 
12 
4 


(00) 
(18) 
(08) 
(oc) 
(00) 
(04) 
(00) 
(10) 
(08) 
(oc) 
(04) 


Flag 
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RECORD LAYOUT — RDB 


Offset Field/Flag Flag 

Dec(Hex) . Length Name . Code (Hex) Meaning 

0 (00) RDB 

0(00) 1 RD BPOID Primary owner PST prefix 
number 

0(00) 4 RDBRDBF RDB forward chain pointer 

4 (04) 1 RDBUOID Update owner PST prefix 
number 

4 (04) 4 RDBRDBB RDB backward chain 
pointer. 

8(08) 1 RDBMAXL Top enqueue level of 
current owners 

8 (08) 4 RDBRRDF Pointer to first RRD 

12(¢0C) 1 RDBNOWN Current number of owners 

12(0C) rT RDBRRDL Pointer to last RRD 

16(10) 7 - RDBRID Resource ID (described in 
Section 3) 

23(17) 1 ##Reserved*t* 

24(18) RDBLEN Length of RDB 
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RGT. - RANGE TABLE 


DSECT Name: RGT 


This DSECT describes one range of keys or blocks to be reorganized. 
The range table is part of the common area. There are ten RGT entries 
available. They are completed by parameter analysis from data 
Supplied ky the user in his control cards. This control block is used 
by the partial reorganization utility. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code(Hex) 
RGTFBKHI 4 (004) 

RG TF BKLO 0 (000) 

RGTFLEN 90 (0O5A) 5c 
RGTFTHI1 12 (00C) 

RGTFTHI2 20 (014) 

RGTFTHI3 28 (01C) 

RGTFTHI4 36 (024) 

RGTFTHI5 44 (02C) 

RGTFTHI6 52 (034) 

RGTFTHI8 68 (044) 

RGTFTHI9 76 (04C) 

RGTFTH10 84 (054) 

RGTFTLO1 8 (008) 

RGTFTLO2 16 (010) 

RGTFTLO3 24 (018) 

RGTFTLO4 32 (020) 

RGTFTLO 5 40 (028) 

RGTFTLO6 48 (030) 

RGTFTLO7 56 (038) 

RGTFTLO8 64 (040) 

RGTFTLO 9 72 (048) 

RGTFTL10 80 (050) 

RGTKEYAR 90 (05A) 5C 
RGTKIND1 88 (058) 

RGTKIND2 89 (059) 

RGTSTART 0 (000) 
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tl 


offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 

0(000) 4 RGTSTART 

0 (000) 4 RGTFB KLO First block in range 
to be reorganized 

4 (004) 4 RGTFBKHI Last block in range 
to be reorganized 

8 (008) 4 RGTFTLO1 First block in data set 
group 1 for reload to use 

12 (00C) 4 RGTFTHI1 Last klock in data set 
group 1 for reload to use 

16(01 0) 4 RGTFTLO2 Same as for data set group 2 

20(014) 4 RGTFTHI2 Same as for data set group 2 

24 (018) 4 RGTFTLO3 

28(01C) 4 RGTFTHI3 

32 (020) 4 RGTFTLO4 

36(024) 4 RGTFTHI4 

40(028) 4 RGTFTLO5 

44 (02C) 4 RGTFTHI5 

48(03 0) 4 RGT FT LO6 

52(034) 4 RGTFTHI6 

56 (038) 4 RGTFTLO7 

60(03C) 4 RGTFTHI7 

64(040) 4 RGTFTLO8 

68(044) 4 RGTFTHI8 

72 (048) 4 RGTFTLOY 

76 (04C) 4 RGTFTHI9 

80(050) RGTFTL10 First block in data set 
group 10 for relcad to use 

84(054) RGTFTH10 Last block in data set 
group 10 for reload to use 

88(058) RGTKIND1 Key range format indicatcr 
1 (C or X) 

89(059) RGTKIND2 Key range format indicator 
2 (Cc or X) 

90(05A) ** Reserved ** 

RGTFLEN "*-RGTSTART" Length of a 

RGT entry 
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RIB.- REMOTE INTERFACE BLOCK 


DSECT Name: 


This DSECT describes remote interface block fields. 
by DL/I for CICS/VS intersystem communication (ISC) support. 
defines fields passed between CICS/VS and DL/I. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


*RIBBUFAL 
*RIBCALL 
RIBCHAIN 
RIBCHKP 
RIBDLTR 
RIBFCTR 
*RIBFUNC 
RIBHLPI 
RIBINDEX 
RIBIOAWK 
RIBIOLEN 
RIBISC 
RIBISCI 
RI BISCO 
*RIBLEN 
*RIBLNKNA 
*RIBLNKSH 
RIBNOSTT 
RIBPCBAL 
*RIBPCBM 
RIBRSET 
*RIBSYNC 
RIBUPPER 


offset 


Dec (Hex) 


(12) 
(14) 
(04) 
(20) 
(16) 
(15) 
(14) 
(13) 
(10) 
(08) 
(18) 
(12) 
(14) 
(13) 


(14) 
(14) 
(14) 
(00) 
(12) 
(17) 
(13) 
(OC) 


Flag 
Code(Hex) 


40 
40 


20 


80 
40 
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The RIB is used 


5-129 


RECORD LAYOUT - RIB 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(00) 0 RIB Start of RIB DSECT. This 
control block follows 
immediately after the | 
RPST 
0 (00) 4 RIBPCBAL Local PCB address list _ 
4 (04) 4 RIBCHAIN Remote PSB storage chain 
8(08) | 4 RIBIOAWK Local PSB I/O work area 
12(0C) 4 RIBUPPER Highest address cf caller 
partition 
16(10) 2 RIBINDEX PCB index number 
18(12) 4 RIBISC Isc scheduling duration 
flags: Be ok 
RIBPCBM 80 PCBM scheduling call 
issued 
RIBBUFAL 40 RIBIOAWK buffer allocated 
RIBCHKP 20 DL/I checkpoint call in 
progress 
19 (13) 1 RIBISCO Isc outbound flags: 
RIBHLPI 40 DL/I HLPI comrand with 
SSA and I/O lengths 
provided 
RIBSYNC 80 Synchronization point 
issued 
20(14) 1 RIBISCI Isc inbound flags: 
RIBFUNC 80 Function string invalid 
RIBCALL 40 User call parameter list 
invalid 
RIBLNKNA 20 Link does not exist 
RIBLNKSH 10 Link is out of service 
RIBNOSTT 08 CICS not counting DI/I 
calls 
21(15) 1 RIBFCTR ISC response code 
22(16) 1 RIBDLTR Additional response 
information 
23(17) 0 RIBRSET 04 Length of function 
dependent flags 
23(17) 1 ** Reserved ** 
24(18) 4 RIBIOLEN I/O area length for HLPI 
data base command 
RIBLEN 1c Length of RIB 
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RPCB - REMOTE PCB 


DSECT Name: DLZRPCB 


This DSECT describes remote PCB fields. The RPCB is an extension of 
PCB local storage used by DL/I for CICS/VS intersystem communication 
(ISC) support. RPCBs exist only while a task is scheduled for a data 
base that is located on some other system. In this case, the address 
of the RPCB is located four bytes ahead of the PCB. 


RECORE LAYOUT - RPCB 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 0 RPCB Start of RPCB DSECT. 

0(00) 4 RPCBMIOS Maximum PCB I/O area 
size. 

4 (04) 4 RPCBSEGL Length of last retrieve. 

8 (08) 1 RPCBFLAG Flag byte: 

RPCBPATH 80 Previous get hold path 

call. 

9(09) 3 Unnamed **Reserved ** 

12¢0C) RPCBLEN Length of RPCB 
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RPDIR ~- REMOTE PSB DIRECTORY 


DSECT Name: DLZRPDIR 


This DSECT descrikes remote PSB directory fields. The RPDIR is an 
extension of the PDIR. It contains PSB information used by DL/I for 
CicS/VS intersystem communication (ISC) support. 


RECORD LAYOUT - RPDIR 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0 (00) 0 RPDIR _ Start of RPDIR DSECT 
0 (00) 4 RPDIRSYS System name on which 
remote PSB is defined 
4 (04) 8 RPDIRPSB Name of PSB to use on 
: remote system . 
12(0C) 2 RPDIRLOC Optional local PSB PDIR 
: pointer 
14(0E) 1 RPDIRFLG Flag byte 
RPDIREXT 
RPDIRORD 01 Local PCBs follow remote 
16(10) RPDIRLEN Length of RPDIR 
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RPST_ - REMOTE PST 


DSECT Name: DLZRPST 


This DSECT describes remote PST fields. The RPST is an extension of 
task local storage used by DLZODP for CICS/VS intersystem 
communication (ISC) support. 


RECORD LAYOUT - RPST 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) _Meaning 

0 (00) 0 RPST ; Start of RPST DSECT 

0 (00) 4 RPSTISC1 -  ISC parameter 1 

4 (04) 4 RPSTISC2 . ISC parameter 2 

8 (08) 4 RPSTISC3 ISC parameter 3 

12(0C) 4 RPSTISC4 ISC parameter 4 

16(10) 4 RPSTISC5 ISC parameter 5 

20(14) 4 RPSTISC6  4SC parameter 6 

24(18) 1 RPSTATUS Flag byte 

25(19) 3 RPSTACTA . | Program‘s ACT entry 
address 

28(1C) 4 RPSTRPSB Remote PSB PDIR entry 
address 

32(20) 4 RPSTRPCB Remote PSB PCB address 
list address 

36 (24) 4 RPSTXPSB ; Local PSB PDIR entry 
address 

40 (28) 4 RPSTXPCB - Local PSB PCB address 
list address = 

44 (2C) 0 RPSTACCT Remote call statistics 

44 (2C) 4 RPSTGU Number of GU calls issued 

48(30) 4 RPSTGN Number of GN calls issued 

52(34) 4 RPSTGNP Number of GNP calis 
issued 

56(38) 4 RPSTGHU Number of GHU calls” 
issued 

60(3C) 4 RPSTGHN Number of GHN calis 
issued 
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64(40) 
68 (44) 
72(48) 
76(4C) 


80(50) 
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4 RPSTGHNP 
4 RPSTISRT 
4 RPSTDLET 
4 RPSTREPL 
4 RPSTCHKP 
RPSTSTLN 
RPST 
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_ Number of GHNP calls 


issued 


Number of ISRT calis 
issued 


Number of DLET calls 
issued 


Number of REPL calls 
issued 


Number of CHKP calls 
issued 

Length of remote status 
section (*-RPSTACCT) 
Length of RPST (*-RPST) 


RRD.- RESOURCE REQUEST DESCRIPTOR 


DSECT Name: 


The RRD (Resource Request Descriptor) is used to maintain a record of 
all the requests by one task for a particular resource and their 


current status. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


RRD 
RRDFLAG 
RRDLEN 
RRDMAXL 
RRDNQEX 
RRDNQRO 
RRDNQUP 

*RRDOWNF 

*RRDPOWNF 
RRDPSTP 
RRDPSTQB 
RRDPSTQF 
RRDRDBP 
RRDRDBQB 
RRDRDBQF 

*RRDWAITF 


Offset 
Dec (Hex) 


(00) 
(10) 
(24) 
(OC) 
(08) 
(00) 
(04) 
(10) 
(10) 
(14) 
(04) 
(00) 
(10) 
(0c) 
(08) 
(10) 


Flag 
Code (Hex) 


01 
04 


02 
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RECORD LAYOUT - RRD 


Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0 (00) RRD 
0(oo) #1 RRDNQRO a Number of read-only 
ownerships for task 
0(00) 4 RRDPSTQF PST queue forward 
pointer; next RRD for 
task ; 
4(04) 1 RRDNQUP Numbter of exclusive 
(update) ownerships for 
task 
4(04) 4 RRDPSTQB PST queue Lackward 
pointer; prior RRD for 
task 
8 (08) 1 RRDNQEX Number of exclusive 
ownerships for task 
8 (08) 4 RRDRDBOF RDB queue forward 
pointer; next RRD for 
resource 
12(0c) 1 RRDMAXL Current maximum ownership 
level for resource by. 
task 
12(0c) 4 RRDRDB QB RDB queue backward 
pointer; prior RRD for 
resource 
16(10) 1 RRDFLAG Flag byte 
RRDOWNF 01 PST owns resource 
RRDWAITF 02 PST is waiting for 
resource 
RRD POWNF 04 PST is prime owner of 
resource 
16(10) 4 RRDRDBP RDB address for resource 
20(14) 4 RRDPSTP PST address for task 
24(18) 4 RRDLEN Length of RRD 
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SBIF - SUBPOOL INFORMATION TABLE 


DSECT Name: 


SUBINFTA 


The subpool information table is described as part of the general 
structure and description of DL/I buffer pool control blocks. There 
is one subpool information table for each subpool allocated. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 
Name 


SUBBFHD 
SUBBENO 
SUBBFSIZ 
SUBDMBCT 
SUBDUMP 

+ SUBFRSV 
SUBLEN 
SUBNCFI 
SUBNQLA 
SUBUCHAI 
SUBUCPRE 
SUBUCSUF 
SUBUSCHA 


Offset 
Dec (Hex) Code (Hex ) 


(03) 


(02) 


(2¢) 
(2D) 
(03) 
(03) 
(2B) 
(00) 
(01) 
(08) 
(04) 
(28) 
(04) 


Flag 


40 
80 
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RECORD LAYOUT - SBIF 


Offset Field/Flag Flag 
Dec (Hex) Length. Name Code (Hex) Meaning 
0(00) : SUBNOQFI ; PST prefix number of. | 
: oe ee first task in chain for 
oe Sa, - . enqueue subpool 
1 (01) 1 SUBNQLA PST prefix number of last 
task in chain for enqueue 
Subpool 
2 (02) 1 SUEBFNO Number of buffers in this 
subpool 
3(03) 1 SUBBFHD | -HDBFR indicator 
SUBFRSV -: 80. DMB assigned to this 
subpool by HDBFR 
parameter 
SUBD UMP 40 Buffers associated with 
subpool dump 
4 (04) 4 SUBUSCHA ‘Buffer use chain 
4 (04) 4 SUBUCPRE Accumulated number of 
buffers in Breyecares 
subpools 
8 (08) 32 SUBUC HAI Buffer use chain 
40(28) 4 SUB UC SUF (Not used in DL/I DOS/VS) 
44 (2C) 1 SUBBFSIZ Size of the buffers in 
this subpool: 3 
~ X*01" = 512 bytes 
X"02' = 1024 bytes 
X"03' = 1536 bytes. 
X"04" = 2048 bytes 
X*05" = 2560 bytes 
X'06" = 3072 bytes 
X"07" = 3584 bytes” 
X"08" = 4096 bytes 
45 (2D) a SUBDMBCT Number of DMBs assSignéd — 
46 (2E) 0 SUBLEN Length of subpool | 
information table 
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SCD. - SYSTEM CONTENTS DIRECTORY 


DSECT Name: 


The DL/I SCD (System Contents Directory) is produced during DL/I 
system definition for online CICS/VS-DL/I. 
part of the DL/I nucleus in the batch DL/I system. 
Major entry pointers for all DL/I facilities. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


CPYRITE 
scD 
SCDABEND 
SCDABSAV 
SCDACTBA 
SCDASE 
SCDATSKC 
SCDBEPL 
SCDBKWRK 
SCDCDTA 
SCDCMTCT 
*SCDCMTI 
SCDCMXT 
SCDCOMRG 
SCDCPY10 
SCDCSABA 
SCDCWRK 
SCDCWRKL 
SCDDATE 
* SCDDBASL 
SCDDBFA 
SCDDBFPL 
SCDDBLAS 
*SCDDBLCJ 
SCDDELCL 
* SCDDBLD2 
SCDDBLFW 
SCDDEMPS 
SCDDELNT 
* SCDDBLO 
SCDDBLOP 
#SCDDELOR 
* SCDDELSP 
SCDDBLSV 
*SCDDBLTD 
SCDDELWO 
SCDDDBHO 
* SCDDELT 
SCDDHDS 0 
*#SCDDLARE 
SCDDLICL 
SCDDLICT 
SCDDLIDL 
SCDDLIDM 


SCDDLIDN . 


offset 


Dec (Hex) 


0 (000) 
96 (060) 
200 (0C8) 
288 (120) 
264 (108) 
196 (0C4) 
106 (06A) 
216 (0D8) 
352 (160) 
268 (10C) 
384 (180) 
284 (11C) 
104 (068) 
124 (07C) 
180 (OB4) 
276 (114) 
336 (150) 
340 (154) 
98 (062) 
346 (15A) 
217 (0D9) 
216 (D8) 
324 (144) 
346 (15A) 
320 (140) 
346 (15A) 
316 (13C) 
304 (130) 
148 (094) 
346 (15A) 
346 (15A) 
346 (15A) 
346 (15A) 
328 (148) 
346 (15A) 
332 (14C) 
136 (088) 
284 (11C) 
160 (0A0) 
144 (090) 
168 (0A8) 
144 (090) 
232 (0E8) 
228 (0E4) 
234 (COEA) 


Licensed 


Flag . 
Code( Hex) 


40 


02 


20 
10 


80 


40 
08 


20 


20 
28 
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The SCD is preassembled as 
The SCD contains 
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Field/Flag Offset. Flag 


Name Dec( Hex) Code (Hex) 

SCDDLIDR 152 (098) 

SCDDLIIN 156 (09C) 

SCDDLIM 97 (061) 

SCDDLIPL 224 (0EO) 

SCDDLIPN 226 (OE2) 

SCDDLIPS 220 (0DC) 

SCDDLIRE 140 (08C) 

SCDDLIS 272 (110) 

SCDDLIUP 276 (114) 

SCDDLIV 96 (060) 

SCDDLOCT 380 (17C) 

SCDDSEH 0 172 (OAC) 

SCDDXMT0 164 (0A4) 

SCDERRMS 192 (0C0) 

SCDEXTBA 300 (12c) 

SCDFLPC 244 (OF4) 
*SCDFLSAV 244 (OF4) 40 
*SCDHLRE 284 (11C) 08 

SCDIWAIT 188 (OBC) 

* SCDLIPLI 244 (OF4) 80 

SCDLNGTH 520 (208) 

SCDLOCOU 348 (15C) 

SCDLOWER 108 (06c) 

SCDLOWID 120 (078) 

SCDLSTAD 292 (124) 

SCDMPCPT 296 (128) 

*SCDMTI 284 (11c) 80 

SCDMXTSK 102 (066) 
*SCDNABND 284 (11¢) 01 

SCDNAVID 116 (074) 

*SCDNDMP 284 (11C) 04 
* SCDNJNL 284 (11c) 01 
* SCD NLOGI 284 (110) 02 

SCDNTWC 286 (11E) 

SCDPATCH 392 (188) 

SCD PDUP 388 (184) 

*SCDPI | 304 (130) 40 

SCDPPAB 248 (OF8) 

SCDPPAF 244 (OF4) 

SCDPPFB 256 (100) 

SCDPPFF 252 (OFC) 

SCDPPSTL 240 (OFO) 

SCDPPSTN 242 (OF2) 

SCDPPSTS 236 (OEC) 

SCDPRHED 132 (084) 

SCDPSTLN 260 (104) 
*SCDQFJRN 172 (OAC) 08 
* SCDQFSDC 172 (OAC) 04 

SCDQUEFW 176 (OBO) 

SCDQUEFO 172 (OAC) 

SCDREENT 312 (138) 

* SCDRELOD 285 (11D) 08 

SCDREPLN 344 (158) 
*SCDRLABN 285 (11D) 04 
*SCDRLRST 285 (11D) 10 
* SCDRPSB 304 (130) 20 

SCDSEQ 342 (156) 

SCDSIND 284 (11C) 

SCDSIND2 285 (11D) 

* SCDSOPLG 285 (11D) 01 

SCDSPCNT 282 (11A) 


SCDSTROO 208 (0OD4) 
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Field/Flag 
Name 


*SCDSYACT 
*#SCDSYINT 
*SCDSYSAB 
+SCDSYWAT 
#SCDTAMOD 
*#SCDTBHCL 
*SCDTCPOS 
*SCDTINDX 
SCDTKCNT 
SCDTKTRM 
*SCDTOLBH 
*SCDTPITR 
SCDTRACE 
SCDTRCNM 
+*SCDTRETR 
SCDTRFL1 
SCDTRFL2 
SCDTSKCR 
*SCDTUSER 
+*SCDTVSAM 
*#SCDTWFI 
*SCDUPD 
SCDUPPER 
SCDUSAVE 
SCDWAIT 
*SCDXECB 


Offset 
Dec (Hex) 


285 
285 
285 
285 
368 
368 
368 
368 
280 
204 
369 
369 
356 
360 
368 
368 
369 
372 
368 
368 
284 
284 
112 
244 
262 
304 


(11D) 
(11D) 
(11D) 
(11D) 
(170) 
(170) 
(170) 
(170) 
(118) 
(occ) 
(171) 
(171) 
(164) 
(168) 
(170) 
(170) 
(171) 
(174) 
(170) 
(170) 
(11C) 
(11¢) 
(070) 
(OF4) 
(106) 
(130) 
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Flag 
code (Hex) 


40 
02 
80 


80 
04 
08 
10 


80 
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RECORD LAYOUT - SCD 


*#**SYSTEM CONFIGURATION SECTION*+** 


96 (6 0) 
97(61) 
98 (62) 
102 (66) 


104 (68) 


106 (6A) 


108 (6C) 


112 (70) 


116 (74) 
120 (78) 
124 (7¢) 
128(80) 


1 


4 
4 
4 


4 


SCDDLIV 
SCDDLIM 
SCDDATE 


SCDMXTSK 


SCDCMXT 


SCDATSKC 


SCDLOWER 


SCDUPPER 


SCDNAVID 
SCDLOWID 


SCDCOMRG 


***#ACTION MODULE ENTRY POINT 


132 (84) 


136 (88) 
140 (8C) 


144 (90) 


148 (94) 
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SCDPRHED 


SCDDDBHO 


SCDDLIRE 


SCDDLICT 


SCDDLARE 


SCDDBLNT 


ADDRESSES* * # 


28 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 96 CPYRITE Reserved for copyright 
information 

96(60) 0 SCD Start of addressable SCD 


DL/I version number 
DL/I release level 
System date - Julian 


DL/I minimum task count - 
online 


DL/I current maximum task 
- online 


Active DL/I task counter 
- online 


Partition lower boundary; 
address pointer to 
addressable part of the 
SCD (batch only) 


Partition upper boundary 
address 


Next available task ID 
Lowest task ID 
COMREG address 


**Reserved ** 


Entry point of program 
request handler: 

Batch = DLZPRHBO 
Online = DLZPRHO0O 


Entry point of buffer 
handler (DLZDBH00) 


Entry point of retrieve 
(DLZDLROO) 


Entry point of cail 
analyzer (DLZDLAO0O) 
Offset to entry point on 
return to call analyzer 


Entry point of data base 
log module (DLZRDBLO) = 
entry point of log 


Offset 


Field/Flag Flag 


Dec{Hex) . Length Name Code (Hex) Meaning 


152 (98) 
156 (9C) 


160 (A0) 
164 (A4) 
168 (A8) 


172 (AC) 


172 (AC) 


176 (BO) 
180(B4) 


184 (B8) 


188 (BC) 
192 (CO) 


196 (C4) 


200 (C8) 


SCDDLID2 


SCDDLIIN 


SCDD HDSO 


SCDDXMTO 


SCDDLICL 


SCDDSEHO 


SCDQUEFO 


SCDQFSDC 


SCDQFJ RN 


SCDQUEFW 


SCDCPY10 


SCDIWAIT 


SCDERRMS 


SCDASE 


SCDABEND 


04 


08 


initialization until 
after initialization 
Entry point of 
delete/replace 
(DLZDLDOO) 


Entry point of ae 
load/insert for retrieve 
(DLZDDLEO) 


Entry point of space | 
management (DLZDHDSO) © 


Entry point of index 


Maintenance (DLZDXMTO) 


Entry point of ofen/close 
(DLZDLOCO) 


Entry point of routine to 
create work files for 
batch only (DLZDSEHO) 


Entry point of 
enqueue/dequeue module 
for program isolation - 
online only (DLZQUEFO) 
Displacement to SCD 
address field in DLZQUEFO 
Displacement to JRNAD © 
exit address field in 
DLZQUEF 0 


Enqueue/dequeue work area 


Entry point for field 
level sensitivity 
expansion routine 
(DLZCPY10) 


**Reserved t+ 


Entry point of IWAIT 
routine: 

Batch = DLZIWAIT 
Online = DLZOWAIT 


Entry point of error 

message routine: 
Batch = ERRORMSG 
Online = CDLZERMSG 


Entry point of online _ 
schedule and termination 
(DL ZSCHDL) 


Entry point of DL/I ABEND 
routine: 

Batch = DLZABEND 

Online = DLZABNDO 
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Offset 


Field/Flag Flag 


Dec(Hex) . Length Name — - Code(Hex) Meaning 
204(cc) 4 SCDTKTRM Entry point of online 


208 (DO) 


212 (D4) 


4 


4 


SCDSTROO 


*#**SYSTEM CONTROL BLOCK SECTION*** 


216 (D8) 
216 (D8) 
217 (D9) 


220 (DC) 


224 (E0) 
226(E2) 


228CE4) 


232 (E8) 
234(EA) 


236( EC) 


240 (FO) 
242(F2) 
244(F4) 


244 (F4) 


244(F4) 
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0 
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SCDDBFPL 
SCDBFPL 


SCCDBFA 


SCDDLIPS 


SCCDLIFL 
SCDDLIPN 


SCDDLIDM 


SCCDLIDL 
SCDDLIDN 


SCDPPSTS 


SCDPPSTL 
SCDPPSTN 


SCDPPAF 


SCDUSAVE 


SCDFLFC 


SCDLIPLI 


SCDFLSAV 


80 


40 


task termination for 
program request handler 
(DLZTKTRM) 


Entry point of FLD 
storage manager 
(Batch=DLZSTRBO) 
(Online=DLZSTROO) 


** Reserved ** 


Label for buffer handler 
Number of buffer subpools 


Address of buffer pool 
control block prefix 
(DLZBFPL) 


Address of PSB directory 
(DLZPDIR) 


Length of PDIR entries 
Number of PDIR entries 


Address of DMB directory 
(DLZDDIR) 


Length of DDIR entries 
Number of DDIR entries 


Address of PST prefix 
entries (DLZPPST) 


Length of PPST entries 
Number of PPST entries 


Online forward PST prefix 
active pointer 


Used for MPS or Latch. 
Contains address of user 
savearea where DL/I 
registers are saved. 


Flag byte (used for MPS 

or batch): 

0 = Currently executing 
in DL/I code (or ina 
user program that is 
not written in PL/I). 

1 = Currently executing 
in PL/I code. 

0 = User savearea used 
for STXIT PC. 


offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 


248(F8) 
252 (FC) 
256 (100) 
260 (104) 
262(106) 


264 (108) 


268 (10C) 
272 (110) 
276 (114) 
276 (114) 
280 (118) 
282 (11A) 


284(11C) 


285 (11D) 


SCDPPAB 


SCDPPFF 


SCD PPFB 


SCDPSTLN 


SCDWAIT 


SCDACTBA 


SCDCD TA 


SCCDLIS 


SCEDLIUP 


SCDCSABA 


SCDTKCNT 


SCDSPCNT 


SCDSIND 
SCDMTI 
SCDCMTI 
SCCDELT 
SCDUPD 
SCDTWFI 
SCDHLRE 


SCDNDMP 


SCDNLOGI 


SCDNAEND 


SCDNJ NL 


SCDSIND2 


80 
40 
20 
10 
08 
08 


04 
02 


01 
01 


1 = DL/I savearea used 
for STXIT Pc. 


Online backward PST 
prefix active pointer 


Online forward PST prefix 
free pointer (DLZPPSTF) 


Online backward PST 
prefix free pointer 
(DLZPPSTE) 


Length of PST 


Number of tasks waiting 
for CMAX 


Address of online 
application program 
control table (DLZACTBA) 


Address of current online 
dispatched task*s TCA 


Address of first online. 
task suspended 


Address of batch DL/I 
upper boundary 


Address of online CICS 
CSA 


Count of DL/I tasks 
assigned PPST 


Count of suspended tasks 
due to maximum task 


System indicator 

DL/I Maxiwum task 
indicator 

DL/I current maximum task 
indicator 

Online indicator for PSB 
has delete sensitivity. 
Online indicator for PSB 
has update sensitivity 
Task waiting for segment 
intent 

High level language 
reentry indicator STXIT 
No dump at ABEND 

No data kase logging to 
be done 

Batch - no STXIT AREND to 
be issued 

Online - no CICS journal 
in use . 


System flags 


Licensed Material - Property of IBM 5-145 


offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
SCDSYSAB 80 System ABEND online 
SCDSYACT 40 System task active 
SCDS YWAT 20 System task waiting 
SCDRLRST 10 HD reload/restart 
SCDRELOD 08 HD reload utility 
SCDRLABN 04 HD reload or 
reload/restart ABEND is 
in process 
SCDSYINT 02 Initialization bit 
SCDSOPLG 01 Open records written to 
cIcS journal 
286 (11E) 2 SCDNTWC Segment intent wait 
counter 
288 (120) 4 SCDABSAV Pointer to pseudo ABEND 
Save area (DLZABSAV) 
292 (124) 4 SCDLSTAD Address of CICS interface 
address list (DLZDLIAL) 
296(128) 4 SCDMPC PT Address of MPC partition 
table 
300 (12C) 4 SCDEXTBA Pointer to SCD extension 
304 (130) 1 SCDDBMPS Flag Byte 
SCDXECB 80 XECBs defined by MPC 
SCDPI 40 Program isolation active. 
SCDRPSB 20 Remote PSB defined. 
305(131) 1 **Reserved** 
306 (132) 2 **Reserved ** 
308 (134) 4 **Reserved#*# 


***DATA BASE CHANGE 


312(138) 


316 (13C) 


320 (140) 


324 (144) 


328 (148) 


332 (14C) 


336(150) 


340 (154) 
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4 


LOG SECTION**## 


SCDREENT 


SCDDBLFW 


SCDDBICL 


SCDDBLAS 


SCDDB LSV 


SCDDBLWO 


SCDCWRK 


SCDCWRKL 
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Entry point of log write 
only 


Entry point of log force 
write 


Entry point of log close 
routine 


Entry point of 
asynchronous log 


Entry point of log save 
area 


Entry point of write log 
open record 


Address of DB log work 
area 


Length of DB log work 
area : 


offset 


Field/Flag Flag 


Dec (Hex) | Length Name _ Code (Hex) Meaning 
342 (156) 2 SCDSEQ DB log sequence number 
344 (158) 2 SCDREPLN Length of DB log prefix 
346 (15A) 1 SCDDBLOP Data base log option byte 
SCDDBLO 80 DB log is open 
SCDDBLOR 40 DB log open required 
SCDDBLTD 20 Disk logging used 
SCDDBLD2 10 Two disk extents used 
SCDDBLSP 08 Pause before extent 
switch 
SCDDBLCJ 04 CICS journal in use 
SCDDBASL 02 DB asynchronous 10g 
required 
347 (15B) 1 **Reserved** 
348 (15C) 2 SCDLOCOU Current log count 
350 (15E) 2 **Reserved ** 
352 (160) 4 SCDBKWRK Backout log workarea 
pointer. 
**#4#TRACE SECT ION*#¥* 
356 (164) 4 SCDTRACE Entry point of trace 
module if present 
360 (168) 8 SCDTRCNM Name of trace module 
368 (170) 1 SCDTRFL1 Trace option byte 1 
SCDTUSER 80 User call interface 
SCDTAMOD 40 Action module trace 
SCDTRETR 20 Retrieve (for GET calls) 
SCDTCPOS 10 Current position 
information 
SCDTVSAM 04 VSAM interface 
SCDTBHCL 02 Buffer handler interface 
SCDT INDX 01 Requests to index 
maint enance 
369 (171) 1 SCDTRFL2 Trace option byte 2 
SCDTOLBH 80 Online trace 
SCDTPITR 40 Program isolation trace 
370 (172) 2 **Reserved ** 


***#STATISTICS SECTION*** 


372(174) 


380 (17C) 


384 (180) 


388 (184) 


8 SCDTSKCT 
4 SCDDLOCT 
4 SCDCMTCT 
4 SCDPDUP 


(Online only) 


Total number of PSB 
scheduling calls 


Program isolation 
deadlock occurrence count 


Number of times at 
current maximum task 


Number of duplicate PSBs 
created 
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Offset Field/Flag Flag 


Dec{Hex) Length Name Code (Hex) Meaning 
392 (188) 128 SCDPATCH DL/I patch area 
520 (208) SCDLNGTH Length of SCD 
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SCDEXT ~ SCD EXTENSION 
DSECT Name: SCDEXTDS 
The SCD extension is generated in the same manner as the SCD (system 


contents directory) and is a logical extension of it. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag of fset Flag 
Name Dec (Hex) Code (Hex) 

SCDAPSTR 24 (18) Batch usage 

SCDEABEX 4 (04) Batch usage 

SCDEABSV 8 (08) Batch usage 

SCDEFECB 8 (08) Online usage 

SCDEIDNX 24 (18) Online usage 

SCDEIDST 20 (14) Online usage 

SCDEIDWK 28 (1C) Online usage 

SCDELECB 0 (00) Online usage 

SCDEMSGT 32 (20) Online usage 

SCDEPASS 16 (10) Online usage 

SCDEPCEX 12 (0C) Batch usage 

SCDEREEN 0 (00) Batch usage 

SCDESECB 4 (04) Online usage 

SCDETRAN 16 (10) Batch usage 

SCDETRSV 20 (14) Batch usage 

SCDETRTB 36 (24) Online usage and batch usage 
SCDETRTE 40 (28) Online usage and batch usage 
SCDETRTS 44 (2C) Online usage and batch usage 
SCDEVSEX 12 (OC) Online usage 

SCDEXLEN 52 (34) Online usage 
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RECORD LAYOUT - SCDEXT 


offset Field/Flag Flag 

Dec(Hex) . Length Name__ - Code (Hex) Meaning 

**#Online Usage of the SCD Extension**+* 

0 (00) 4 SCDELECB Logger I/O ECB 

4 (04) 4 SCDESECB System enqueue ECB 

8 (08) 4 SCDEFECB System function call ECB 

12(0C) 4 SCDEVSEX Address of VSAM EXCP exit 
(DLZOVSEX) 

16 (10) 4 SCDEPASS Address of system 
password (DLZPASS) 

20(14) 4 SCDEIDST Address of first PPST ID 
assigned (DLZIDLST) 

24 (18) 4 SCDEIDNX Address of last active 
PPST ID (DLZIDLST) 

28(1C) 4 SCDEIDWK Address of PPST search 
table (DLZIDWRK) 

32 (20) 4 SCDEMSGT Address of online message 
module (DLZMMSGT) 

36(24) 4 SCDETRTB Current entry in incore 
table 

40(28) 4 SCDETRTE End address +1 of trace 
table 

44 (2C) 4 SCDETRTS Start address of trace 
table 

48 (30) 4 **Reserved ## 

52 (34) SCDEXLEN Length of SCD extension 


**#Batch Usage of SCD Extension*** 


0 (00) 


4(04) 


8 (08) 


12(0C) 


16(10) 


20(14) 


5-150 
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SCDEREEN 


SCDEABEX 


SCDEABSV 


SCDEPCEX 


SCDETRAN 


SCDETRSV 
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Address of utility block 
call entry point 


Address of STXIT ABEND 
routine (DLZAABND) 


Address of STXIT ABEND 
save area 


Address of STXIT PC 
routine (DLZPABND) 


Address of ABTERM 
transient area 


Address of transient save 
area 


Offset Field/Flag Flag 


Dec (Hex) Length Name / Code (Hex) Meaning 

24(18) 4 SCDAPSTR Application program start 
address 

28(1C) 8 (Not used in batch) 

36(24) 4 SCDETRIB Current entry in incore 
table 

40(28) 4 SCDETRTE End address +1 of trace 
table 

w4u(2c). sé SCDETRTS Start address of trace 
table 

48 (30) 4 **Reserved** 
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SDB. - SEGMENT DESCRIPTION BLOCK 


DSECT Name: SDB 


The segment description block (SDB) is described as part of the 
general structure and description of the program specification block 
(PSB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag offset Flag 
Name Dec (Hex) Code (Hex) 
*SDBALTSC 11 (0B) 20 
* SDBALTSQ 11 (0B) 40 
*SDBCISP 11 (0B) 04 
*SDBCTR 37 (25) 80 
* SDBDCHG 11 (0B) 01 
SDBDDIR 12 (0C) 
SDBDSGA 28 (1C) 
SDBEND 60 (3c) 
*SDBFLS 56 (38) 02 
SDBF3 10 (0A) 
SDBF4& 11 (0B) 
*SDBGEN 32 (20) 10 
SDBKEYFD 40 (28) 
SDBKEYLN 24 (18) 
SDBLEN 60 (3C) 
SDBLEVEL 8 (08) 
*SDBLP 37 (25) 02 
* SDBLTPK 37 (25) 04 
*SDBLTFD 37 (25) 08 
SDBLTN 0 (00) 
SDBL TP 0 (00) 
-SDBNSDB 16 (10) 
*SDBORGHD 9 (09) 20 
*SDBORGHI 9 (09) 10 
* SDBORGHS 9 (09) 02 
* SDBORGH1 9 (09) 04 
SDBORGN 9 (09) 
*SDBORGRI 9 (09) 44 
*SDBORGSH 9 (09) 05 
* SDBORGSS 9 (09) 01 
SDBPARA 24 (18) 
SDBPCB 39 (27) 
SDBPCF 38 (26) 
*SDBPCTSP 32 (20) 40 
SDBPHYCD 12 (0C) 
SDBPOSC 48 (30) 
*SDBPOSL 11 (0B) 02 
SDBPO SN 52 (34) 
SDBPOSP 44 (2C) 
*SDBPP 37 (25) 10 
*SDBPPST 32 (20) 80 
* SDBPP TSP 32 (20) co 
SDBFSDB 20 (14) 
*SDBPTB 37 (25) 20 
SDBP TDS 37 (25) 
*SDBPTF 37 (25) 40 
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Field/Flag Offset 


Name Dec (Hex) 
SDBPTNO 36 (24) 
*SDBSEND 10 (OA) 
*SDBSENG 10 (OA) 
*SDBSENI 10 (OA) 
*SDBSENK 10 (OA) 
*SDBSENL 10 (0A) 
*SDBSENP 10 (OA) 
*SDBSENR 10 (OA) 
*SDBS ENX 10 (OA) 
*SDBSLC 32 (20) 
*SDBSLP 32 (20) 
* SDBSNX 32 (20) 
*SDBSFEP 32 (20) 
SDBS YM 0 (00) 
SDBTARG 33 (21) 
SDBTFLG 32 (20) 
SDBXFFSB 16 (10) 
SDBXFISL 6 (06) 
SDBXFL 56 (38) 
SDBXFLAG 12 (0C) 
SDBXFLEN 16 (10) 
SDBXFLN 2 (02) 
SDBXFNB 1 (01) 
* SDBXENR 12 (0C) 
SDBXFSBP 8 (08) 
SDBXFUSL 4 (04) 
SDBXPANS 56 (38) 
SDBXPASF 16 (10) 
SDBXPEND 20 (14) 
SDBXPFDB 0 (00) 
*SDBXPFS 0 (00) 
SDBXPMSK 4 (O04) 
*SDBXPRES 56 (38) 
*SDBXPSI 0 (00) 
SDBXPSZ 20 (14) 
SDBXPTYP 0 (00) 
SDBXSOLN 14 (OE) 
SDBXSQOF 12 (OC) 
SDBXWMS K 8 (08) 


Flag 

Code (Hex) 

10 

80 

40 

08 

O1 

04 

20 

02 

02 

01 

04 

08 
(See 
(See 
(See 
(See 
(See 
(See 

80 (See 
(See 
(See 
(See 
(See 
(See 

02 (See 
(See 

01 

01 (See 
(See 
(See 
(See 
(See 
(See 


SDBXP block at end of SDB) 
SDBXP block at end of SDB) 


SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 


SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 


SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 
SDBXP 


block 
block 
block 
block 
block 
block 
block 


block 
bklock 
klock 
block 
block 


block 
block 
block 
block 
block 
block 


at 
at 
at 
at 
at 
at 
at 


at 
at 
at 
at 
at 


at 
at 
at 
at 
at 
at 


end 
end 
end 
end 
end 
end 
end 


end 
end 
end 
end 
end 


end 
end 
end 
end 
end 
end 
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of 
of 
of 
of 
of 
of 
of 


of 
of 
of 
of 
of 


of 
of 
of 
of 
of 
of 


SDB) 
SDB) 
SDB) 
SDB) 
SDB) 
SDB) 
SDB) 


SDB) 
SDB) 
SDB) 
SDB) 
SDB) 


SDB) 
SDB) 
SDB) 
SDB) 
SDB) 
SDB) 
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RECORD LAYOUT - SDB 


offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0 (00) 8 SDBSYM Segment symbolic name 
0(00) 4 SDBLTP Prior segment on logical 
twin chain 
0(00) 4 SDBLTN Next segment on logical 
twin chain 
8 (08) 1 SDBLEVEL Level of this segment 
(logical) 
9(09) 1 SDBORGN Organization of data base 
containing segment od 
SDBORGRI Gy This segment is root of 
index 
SD BORGHD 20 This segment is in a HDAM 
organization 
SDBORGHI 10 This segment is ina 
HIDAM organization 
SDB ORGSH 05 This segment is ina 
. simple HISAM organization 
SDBORGH1 04 . This segment is in a 
HISAM organization 
SDBORGHS 02 This segment is in an 
HSAM organization 
SDBORGSS 01 This segment is in a 
simple HSAM organization 
10(0A) 1 SDBF3 Call sensitivity 
SDBSENG 80 Sensitivity is read only 
SDBSENI 40 Sensitivity is insert 
SDBSENR 20 Sensitivity is replace 
SDBSEND 10 Sensitivity is delete 
SDBSENK 08 Sensitivity is key only 
SDBSENP 04 Sensitivity is path only 
SDBSENX > 02 Sensitivity is exclusive 
SDBSENL 01 Sensitivity is load 
11(0B) 1 SDBF4 Code byte 
SDBALTSQ 40 Secondary index is main 
processing sequence 
SDBALTSC 20 Secondary index search 
fields require conversion 
unnamed 10 ** Reserved ** 
SDBCISP 04 Control interval split 
occurred in HISAM KSDS 
SDBPOSL 02 Position lost 
SDBDCHG 01 Temporary switch for 
replace; data changed 
12(0C) 1 SDBPHYCD Segment code 
12(0C) 4 SDBDDIR DMB directory address 
16(10) 4 SDBNSDB Next SDB for this PSDB 
20(14) 4 SDBPSDB Address of PSDB 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
24(18) 1 SDBKE YLN Executable key length of 
key field 
24(18) 4 SDBPARA Parent SDB (address of 
PCB for root SDB) or 
address of prior SDB on 
"SDBTARG* chain for 
generated SDBs (SDEGEN on 
in SDBTFLG) 
28(1C) 4 SDBDSGA Address of data set group 
section of JCB for data 
set containing segment 
32(20) 1 SDBTF LG Logical relationshif code 
SDBPPTSP co Segment is physical 
parent of target of 
SDBPARA 
SDBPPSP 80 Segment is physical 
parent of SDBPARA 
SDBPCTSP 40 Segment is physical child 
of target of SDBPARA 
SDBGEN 10 . This SDB is a generated 
SDB 
SDBS PP 08 Segment is a virtual 
logical child 
SDBSNX 04 Segment is retrieved via 
index 
SDBSLC 02 (See bit flag 0001 0010) 
SDBSLP 01 Segment is a logical 
child 


SDBTFLG Bit Flags 


1xx0 xxxx 


xixO xxxx 


10x0O xxxx 


11x0 xxxx 


Inverted structure - The segment 
logically above this one is below it 
in the physical data base hierarchy. 
The segment logically above this one 
is represented by the SDB pointed to 
in SDBPARA. If SDBPARA points to a 
SDB for a logical child, this segment 
could be physically above either the 
logical child or its destination 
parent. A generated SDB pointed to by 
SDBTARG in the logical child*s SDB 
represents the destination parent. 


Logical relation - The segment 
represented by the SDB pointed to by 
SDBPARA is a logical child and this 
segment is either the physical parent 
or a physical child of its destination 
parent. 


This segment is the physical farent of 
the segment represented by the SDB 
identified as SDBPARA. 


The segment represented by the SDB 
pointed to in SDBPARA is a logical 
child and this segment is the physical 
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offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
parent of its destination parent 
(SDBTARG) . 


01x0 xxxx The segment represented by the SDB 
pointed to in SDBPARA is a logical 
child and this segment is a physical 
child of its destination parent. 


xxx0 1xxx This segment is the logical child in a 
virtual logical child concatenated 
segment and SDBTARG point to the 
logical child“*s physical parent. 


xxx0O xxx1 This segment is the logical child ina 
normal concatenated segment and 
SDBTARG points to the logical parent. 


Xxxl xxxx SDB is a generated SDB. 


0001 0010 SDB is a generated SDB for an index. 
If SDBTARG is non-zero, it points to 
the generated SDB for the index 
target. 


0001 0110 SDB is a generated SDB for a HIDAM 
root segment. SDBTARG points to the 


s SDB for the primary index segment. 
33(21) 3 SDBTARG Address of the lcgically 
related segments SDB 
36(24) 1 SDBPTNO Pointer number of first 
physical pointer 
37(25) 1 SDBPTDS Physical pointer flag 
SDBCTR 80 This logical parent 
segment has a counter 
SDBPTF 40 This segment has a 
physical twin forward 
pointer 
SDBPTB 20 This segment has a 
physical twin backward 
pointer 
SDBPP 10 This segment has a 
physical parent pointer 
SDBLTFD 08 This segment has a 
logical twin forward 
pointer 
SDBLTBK 04 This segment has a 
logical twin backward 
pointer 
SDBLP 02 This segment has a 


logical parent pointer 


38(26) 1 SDBPCF Pointer number in parent 
to first occurrence of 
this segment type 


39 (27) 1 SDBPCB Pointer number in parent 


to last occurrence of 
this segment type 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
40(28) 4 SDBKEYFD The address within 


44 (2C) 4 SDBPOSP 
48 (30) 4 SDBPOSC 
52(34) 4 SDBPOSN 
56(38) a SDB XFL 


SDBXPRES 01 


SDBFLS 02 
56(38) 4 SDBXPANS 
60(3C) SDBEND 
60(3C) SDBLEN 


***#SDB EXPANSION BLOCK*** 


DSECT Name: SDBXP 


DBPCBKFD for key this 
segment. In generated 
SDB for logical 
destination parent: 

Byte 0 = physical 
segment code 
of lcegical 
child 

Bytes 1-3 = logical 
child's PSDB 
address 

In generated SDB for 

physical destination 

parent: 

Byte 0 = Physical 
segment code 
of virtual 
logical child 

Bytes 1-3 = virtual 
logical 
child's PSDB 
address 


Previous position 


Current position. xX‘80* 
in high-order byte = 
position lost, in 
conjunction with SDBPOSL 
in SDBF4& 


Next position (current 
position in generated 
SDBs) 


SDB expansion flag 

SDB expansion for 
secondary index 
processing sequence is 
present. (Secondary 
index is main processing 
sequence.) 

Segment has field level 
sensitivity 


SDB expansion address 
End of SDB entry 


Length of each SDB 
(SDBEND rinus SDESYM) 
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Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code(Hex) Meaning 
This block is present if indicated in SDB; see field SDBXFL, flag 


SDBXPRES. 
0(00) 1 
0 (00) 3 
4 (04) 4 
8(08) 4 
12(0C) 2 
14 (0E) 2 
16(10) 4 
20(14) 

20(14) 


SDBXPTYP 


SDBXPSI 


SDBXPFS 


SDBXPFDB 


SDBXPMSK 


SDBXWMSK 


SDBXSQOF 


SDBXSQLN 


SDBXPASF 


SDBXPEND 


SDBXPSZ 


01 
02 


SDB expansion type 
SDB expansion is for 
secondary index 

SDB expansion is for 
field sensitivity 


Address of secondary 
index sequence field FDB 


Mask of XDFLD FDBs 
allowed in SSAs 


Work area reserved for 
open/close 


Offset from DBPCBKFD to 
SUBSEQ area (0 if area 
not present) 


Length of SUBSEQ field(s) 
minus 1 


Alternate sequence FSB 
pointer 


End of SDB expansion 
block entry 


Length of one SDB 
expansion block entry 
(SDBXPEND minus SDBXP) 


***SDB EXPANSION BLOCK FOR FIELD SENSITIVITY *** 


1(01) 1 
2 (02) 2 
4 (04) 2 
6 (06) 2 
8 (08) 4 
12(0C) 1 
13 (0D) 3 
16(10) 0 
16(10) 0 
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SDBXF NB 
SDBXFLN 


SDBXFUSL 


SDBXFISL 


SDB XFSBP 


SDBXF LAG 
SDBXFNR 


SDBXFEND 


SDBXFLEN 


80 


Number of FSBs 
Length of expansion block 


Length of segment in 
user"s view 


Insert length of segment 


ACBGEN - first FSB 
address 


Flags 
At least one NOREPL rule 


**Reserved*+* 


End of SDB expansion 
block entry 


Length of one SDE 
expansion block 


Offset Field/Flag Flag 


Dec (Hex) Length Aame Code (Hex) Meaning 
16(10) 0 SDBXFFSB Start of first FSB 
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SEC -~ SECONDARY LIST 


DSECT Name: DMBSEC 


The secondary list is described as part of the general structure and 
description of the DMB. The labels in SEC vary with the type of 
secondary index entry. See the field description listed by code type 
in the record layout. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag offset Flag 
Name Dec (Hex) Code (Hex) 
*DMBEXIT 1 (01) 02 (See Code 40) 
*DMBEXLOD 1 (01) 04 (See Code 40) 
*DMBEXTRN 0 (00) 40 
DMBFDFLG 1 (01) (See Code 04) 
DMBFDOFF 6 (06) (See Code 04) 
* DMBFDONE 1 (01) 10 (See Code 04) 
*DMBFDUSE 1 (01) 01 (See Code 04) 
*DMBI NDXD 0 (00) 44 
DMBIPSDB 8 (08) (See Code 64) 
DMBISSOF 2 (02) (See Code 64) 
DMBISSSC 8 (08) (See Code 64) 
DMBNBYTE 4 (04) (See Code 40) 
*DMBNXISS 0 (00) 690 
*DMBNXXDS 0 (00) 64 
DMBS CDE 0 (00) 
DMBSECDB 4 (Q4) (See Code 01) 
DMBSECLN 16 (10) (See Code 64) 
DMBSECND 16 (10) (See Code 64) 
DMBSECNM 8 (08) (See Code 01) 
DMBSECSC 4 (04) (See Code 01) 
DMBSFCEN 12 (0c) (See Code 08) 
DMBSFD 2 (02) (See Code 01) 
DMBSFLEN 13 (OD) (See Code 08) 
DMBSFLG 1 (01) (See Code 01) 
DIMBSFLG1 1 (01) (See Code 40) 
DMBSFNAM 2 (02) (See Code 08) 
DMBSFOFF 10 (OA) (See Code 08) 
DMBSFPSC 1 (01) (See Code 08) 
DMBSKYLN 1 (01) (See Code 60) 
*DMBSLC OQ (00) 02 
*DMBSLCF 0 (00) 08 
DMBSLCFL 2 (02) (See Code 02) 
DMBSLCIR 1 (01) (See Code 02) 
* DMBSLP 0 (00) 01 
*DMBSND 0 (00) 80 
*DMBS NULL 1 (01) 01 (See Code 40) 
DMBSOFF 2 (02) (See Code 44) 
*DMBSOURC 0 (00) 20 
* DMBS RCH 0 (00) 04 
*DMBSUBSQ 0 (00) 24 
*DMBSYMN1 1 (01) O04 ##(See Code 04) 
DMBSYMOF 14 (OE) (See Code 44) 
* DMBS YM1 1 (01) 08 (See Code 04) 
*DMBS YSFD 1 (01) 02 (See Code 04) 
* DMBVKY 1 (01) c*v' (See Code 01) 
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Field/Flag offset Flag 


Name Dec (Hex) Code( Hex) 
* DMBXDCON 12 (0c) 08 (See Code 44) 
* DMBXDEQ 12 (0c) 01 (See Code 44) 
DMBXDFLG 412 (0c) (See Code 44) 
*DMBXDLST 12 (0c) 80 (See Code 44) 
DMBXDPAD 13 (0D) (See Code 44) 
DMBXDSC 8 (08) (See Code 4&4) 
DMBXDS DB 4 (04) (See Code 44) 
*DMBXDS PC 12 (OC) 10 (See Code 44) 
DMBXDSSC 4 (04) (See Code 44) 
* DMBXDSSQ 12 (QC) 04 (See Code 44) 
*DMBXDSSS 12 (0C) 20 (See Code 44) 
*DMBXDS YM 12 (0C) 40 (See Code 44) 
DMBXITAD 4 (04) (See Code 40) 
DMBXNSDB 4 (04) (See Code 60) 
DMBXNSSC 4 (04) (See Code 60) 
DMBXPSDB 8 (08) (See Code 44) 
DMBXSOFF 14 (OE) (See Code 08) 


RECORD LAYOUT - SEC 


offset Field/Flag Flag 
Dec(Hex) Length Name Code (Hex) Meaning 


0(00) 1 DMBSCDE Code byte 

DMBS LP 01 Secondary list describes 
a logical parent 

DMBSLC 02 Secondary list describes 
a logical child 

DMBS RCH 04 Secondary list describes 
index search field(s) 

DMBSLCF 08 Secondary list describes 
logical twin sequence 
field 

DMBSOURC 20 Secondary list describes 
index DDATA field(s) 

DMBSUBSQ 24 Secondary list describes 
index SUBSEQ field(s) 

DMBEXTRN 40 Secondary list describes 
index user exit routine 

DMBINDXD 44 Secondary list describes 
index target segment as 
seen from index pointer 
segment 

DMBNXISS 60 Secondary list describes 
index relationship as 
seen from index source 
segment 

DMBNXXDS 64 Secondary list describes 
index relationshif as 
seen from index target 
segment. This list is 
not present if 
ISS=TARGET 

DMBSND 80 Last entry in secondary 
list 


**#*#THE FOLLOWING FIELDS ARE LISTED BY CODE TYPE*** 


**##CODE 01 - DESCRIBES LOGICAL PARENT*#* 


Licensed Material - Property of IBM 5-161 


offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
1(01) 1 DMBSFLG 
DMBVKY c'v' Key of logical parent is 
virtual 
2(02) 2 DMBSFD Logical parent key length 
4 (04) 1 DMBSECSC Segment code of 


referenced segment 


4(04) 4 DMBSECDB DDIR address of 
referenced data kLase 


8 (08) 8 DMBSECNM Segment name of 
referenced segment 


***CODE 02 - DESCRIBES LOGICAL CHILD*** 


1(01) 1 DMBSLCIR Logical twin sequence 
insert rule 


2(02) 2 DMBSLCFL Number of first and last 
logical child pointers in 
logical parent prefix 
Remaining fields are same as Code 01. 
**#*CODE 04 - DESCRIBES INDEX SEARCH FIELDS*** 
1(01) 5 DMBFDFLG Five 1-byte flags 


associated with the 
following FDB offsets 


DMBS YM1 08 First part of symbolic 
pointer 

DMBSYMN1 04 Not first part of 
symbolic pointer (middle 
or last) 

DMBS YSFD 02 This slot for system- 
related field 

DMBFDUSE 01 This slot in use 

DMBFDONE 10 This entry processed by 


block builder 


6 (06) 10 DMBFDOFF Offset to FDB from first 
FDB of ISS if this slot 
is in use. Otherwise, 
zero. 


***#CODE 08 - DESCRIBES LOGICAL TWIN SEQUENCE FIELD*#* 


1(01) 1 DMBSFPSC Virtual logical child 
physical segment code 

2(02) 8 DMBSFNAM FDB field name 

10(0A) 2 DMBSFOFF Offset to field in 

segment 

12(0C) 1 DMBSFCEN Code byte (same as 


FDBDCENF in FDB) 


13(0D) 1 DMBSFLEN Executable field length 
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Offset 


Field/Flag Flag 


Dec(Hex) Length Name Code (Hex) Meaning 
14 (0E) 2 DMBXSOFF offset to field in 


***#CODE 20 - DESCRIBES DDATA FIELD**#* 


Same fields as Code 04 


***#CODE 24 - DESCRIBES SUBSEQ FIELD*** 


Same fields as Code 04 


**##CODE 40 - DESCRIBES INDEX EXIT ROUTINE*** 


1(01) 


loaded 


2 (02) 


4% (04) 


4 (04) 


8 (08) 


***#CODE 44 - DESCRIBES INDEX 


1 (01) 


2(02) 


4(04) 


4 (04) 


8 (08) 


8 (08) 


12(0C) 


1 


8 


1 
2 


DMBSFLG1 
DMBSNULL 01 
DMBEXIT 02 
DMBEXLOD 04 


DMBNBYTE 


DMBXITAD 


DMBSKYLN 


DMBSOFF 


DMBXDSSC 


DMBXDSDB 


DMBXDSC 


DMBXPSDB 


DMBXDFLG 
DMBXDLST 80 
DMBXDSYM 40 
DMBXDSSS 20 
DMBXDSPC 10 
DMBXDCON 08 


DMBXDSSQ 04 
DMBXDSOR 02 


Licensed Material 


indexed segment 


Flag byte 

Null field present 
Exit routine present 
Exit routine has been 


*+*+# Res er ved*t ** 

If index field equals 
this byte, bypass 
indexing 

Address of index 
maintenance parameter 
CSECT 


*** Reser ved* ** 


TARGET SEGMENT * ** 


Executable length of key 


Offset to PSDB address 
pointer of index target 
segment 


Segment code of index 
target segment 


DDIR address of index 
target segment 


Segment code of index 
target segment 


PSDB address of index 
target segment 


Code byte from associated 
FDB 

Last FDB in list 
Index pointer is symbolic 
Pointer contained in 
source/subseq data 
Special FDB for secondary 
index 

Constant present 
SUBSEQ present 
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Offset Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 

DMBXDEQ 01 XDS=ISS 
13(0D) 1 DMBXDPAD Padding constant 
14 (OE) 2 DMBSYMOF Offset to symbolic 


pointer indexing segment 
***CODE 60 - DESCRIBES INDEX FROM ISS*** 
1(01) 3 Same as code 44 


4 (04) 1 DMBXNSSC Segment code of index 
pointer segment 


4 (04) 4 DMBXNSDB DDIR address of index 
Remaining fields same as Code 44 


***CODE 64 - DESCRIBES INDEX FROM INDEX TARGET*#** 


1 (01) A Same as code 44 

2(02) 2 DMBISSOF Offset to Code 60 from 
start of ISS seccndary 
list 5 

4 (04) 4 Same as code 60 

8 (08) 1 DMBISSSC Segment code of index 
source segment 

8 (08) 4 DMBIPSDB PSDB address of index 
source segment 

12(0C) 1 Same as code 44 

16(10) DMBSECND End of each secondary 
list entry 

16(10) DMBSECLN Length of each secondary 


list entry 
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SGT.- SEGMENT TABLE 


DSECT Name: SGT 


This DSECT describes the segments used by the partial reorganization 


process. 


subsequent phases in PART1 and PART2. 


common area field 


extension table (SGX). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag 


Name 


SGTCDS 
SGTCLEV 
SGTCNAME 
SGTCSC 
SGTFCNT1 
SGTF CNT2 
SGTF CNT 3 
SGTFCNT 4 
SGTFCNT5 
SGTFCNT6 
SGTGATR1 
SGTGATR2 
SGTGATR3 
SGTGATR4& 
SGTHDLEN 
SGTHKLEN 
SGTHPLEN 
* SGTLLEN 
SGTODBT 
SGTOKEY 
SGTOPCF 
SGTORACT 
SGTOSACT 
SGTOSIBL 
*SGTODRCT 
* SGTQDSEN 
+SGTQHB 
*SGTCHIDR 
*SGTOQHIER 
* SGTOKSEN 
* SGTQLC 
*SGTQLCL 
*SGTQLP 
*SGTOLTB 
*SGTQMOVE 
*SGTQNOLT 
*SGTONPRO 
* SGTOPCL 
*SGTQPP 
*SGTQEPR 
*SGTOPTB 
*SGTOQPTF 
*SGTQSCAN 
*SGTQSOPT 


(COMASGT). 


Offset 
Dec (Hex) 


(03D) 
(03E) 
(000) 
(03C) 
(010) 
(014) 
(018) 
(01C) 
(020) 
(024) 
(040) 
(041) 
(042) 
(043) 
(030) 
(02C) 
(02E) 
(068) 
(028) 
(02A) 
(038) 
(032) 
(034) 
(03A) 
(041) 
(043) 
(040) 
(040) 
(040) 
(043) 
(041) 
(041) 
(042) 
(041) 
(040) 
(042) 
(043) 
(040) 
(040) 
(041) 
(040) 
(042) 
(043) 
(043) 
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Flag 
Code (Hex) 


6C 


It is built during the DBD analysis phase and used Ly all 
Its address is held in the 
Associated with the SGT is the segment 


5-165 
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* SGTOSYM 65 (041) 08 
*SGTQUNID 65 (041) 40 
*SGTQVPR 65 (041) 20 
*SGTQVRLN 64 (040) 01 
* SGTOXDRT 66 (042) 08 
*SGTQXSX 66 (042) 02 
SGTRNEW 12 (00C) 
SGTROLD 8 (008) 
SGTSTART 0 (000) 
* SGTUNIQ 66 (042) 04 
SGXFBLK 104 (068) 
SGXOCTR 68 (O44) 
SGXO HB 84 (054) 
SGXOHIER 82 (052) 
SGXOLCF 88 (058) 
SGXOLCWK 102 (066) 
SGXOLP 80 (050) 
SGXOLTB 78 (O4E) 
SGXOLTF 76 (O4C) 
SGXOPAIR 94 (Q5E) 
SGXOPCF 86 (056) 
SGXOPCWK 100 (064) 
SGXOPP 74 (O4A) 
SGXOPTB 72 (048) 
SGXOPTF 70 (046) 
SGXOSLP 92 (05C) 
SGXOSPP 90 (0O5A) 
SGXOSRCE 98 (062) 
SGXO TARG 96 (060) 
offset Field/Flag Flag 
Dec(Hex) . Length Name ; Code (Hex) Meaning 
0 (000) 4 SGTSTART 
0(000) 8 SGTCNAME Segment name un/reloded 
12(00C) 4 SGTRNEW New RBA of last segment 
reloaded 
16(010) SGTFCNT1 Statistical counter 
20(014) SGTFCNT2 Statistical counter 
24(018) SGTFCNT3 Statistical counter 
28(01C) SGTFCNT4 Statistical counter 
32 (020) SGTFCNT5S Statistical counter 
36(024) SGTFCNT6 Statistical counter 
40(028) SGTODBT Offset to DBT entry for 
this segments DB 
42 (02A) SGTOKEY Segment key start POS 
root only 
44(02C) SGTHKLEN Segment key length roots 
only 
46 (02E) SGTHPLEN Segment prefix length 


offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
48(030) 2 SGTHDLEN Segment data length 
maximum if variakle 
50(032) 2 SGTORACT Offset in ACT to first 
reload action 
52 (032) 2 SGTOSACT Offset in ACT to first 
scan action 
54(036) 2 Spare offset field 
56 (038) 2 SGTOPCF Offset in SGT to first 
physical child of this 
segment 
58 (03A) 2 SGTOSIBL Offset in TGT to next 
SESIBLING segment 
60(03Cc) 1 SGTCSC DL/I segment code 
61(03D) 1 SGTCDS DL/I data set code 
62 (03E) 1 SGTCLEV DL/I level code 
63 (03F) 1 ** Reserved ** 
64(040) 1 SGTGATR1 Segment physical 
attributes 
SGTQMOVE 80 Segment to be moved for 
reorganization 
SGTQHIDR 40 Segment is HIDAM root 
SGTQPP 20 Segment has PP pointer 
SGTQPTB 10 Segment has PTB pointer 
SGTQPCL 08 Segments parent has PCL 
pointer to this 
SGTQHIER 04 Segment has hierarchic 
pointers 
SGTQHB 02 Segment has hierarchic 
backward pointer 
SGTQVRLN 01 Segment is variakle 
length 
65(041) 1 SGTGATR2 Segment logical 
attributes 
SGTQLC 80 Segment is a logical 
child 
SGTQUNID 40 Segment is logical child 
unidirectional relation 
SGTQVPR 20 Segment has virtual pair 
SGTQPPR 10 Segment has physical pair 
SGTQSYM 08 Segment has only symbolic 
pointer to logical parent 
SGTQDRCT 04 Segment has direct 
pointer to logical parent 
‘SGTQLTB 02 Segment has LTB rointer 
SGTQLCL 01 Segments logical parent 
has LCL pointer to this 
66(042) 1 SGTGATR3 Segment logical and index 
attributes 
SGTQNOLT 80 Virtually paired with no 


logical 


twin pointers 
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Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
SGTQLP 40 Segment is a logical 
parent 
SGTQXDRT 08 Segment is index segment 
with direct pointer 
SGTUNIQ 04 Segment is in a unique 
index 
SGTQXSX 02 Segment is index segment 
with SX field 
SGTQPTF 01 Segment has a PTF rointer 
67(043) 1 SGTGATR4 Segment PSB attributes 
SGTQKSEN 80 Key only sensitivity 
required 
SGTQDSEN 40 Data sensitivity required 
SGTQNPRO 20 Segment not processed 
used to reach physical 
child 
SGTQSOPT 02 Scan is option for this 
. segment 
SGTQSCAN 01 This segment will he 


SEGMENT 


EXTENSION 


scanned 


TABLE 


This part of the DSECT is for additional information about the 
segments used by the partial reorganization process. It contains 
offsets needed to create the action table (ACT). It is created during 
the DBD analysis phase. 


68(044) 


70(046) 
72 (048) 
74(O4A) 
76(04C) 
78(O4E) 
80(05 0) 
82(052) 
84 (054) 


86(056) 


88 (058) 
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SGXOCTR 


SGXOPTF 


SGXOPTB 


SGXOPP 


SGXOLTF 


SGXOLTB 


SGXOLP 


SGXOHIER 


SGXOHB 


SGXOPCF 


SGXOLCF 


Offset in prefix of log 


Offset in prefix of PTF 
REL counter pointer 


Offset in prefix of PTB 
pointer 


Offset in prefix of PP 
pointer 


Offset in prefix of LTF 
pointer 


Offset in prefix of LTB 
pointer 


Offset in prefix of 
logical parent pointer 


Offset in prefix of hier 
pointer 


Offset in prefix of hier 
kack pointer 


Offset in segments 
physical parent of PCF to 
this segment 


Offset in segments 
logical parent of LCF to 
this segment 


offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
90(05A) 2 SGXOSPP Offset in SGT of physical 
parent 
92 (05C) 2 SGXOSLP Offset in SGT of logical 
ae parent 
94(05E) 2 SGXOPAIR Offset in SGT of physical 
pair 
96(060) 2 SGXOTARG Offset in SGT of target 
of this segment 
98(062) 2 SGXOSRCE Offset in SGT of source 
of this segment 
100 (064) 2 SGXOPCWK Work area to hold offset 
to first physical child 
102 (066) 2 SGXOLCWK Work area to hold offset 
to first logical child 
pointer 
104 (068) 4 SGXFBLK Last block un/reloaded 
used in PART2 
SGTLLEN "*-SGTSTART" length of a 


SGT entry 
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SSAP - SEGMENT SEARCH APPENDAGE 
DSECT Name: SSAP 
This DSECT describkes the fields contained in the DL/I HLPI Segment 


Search Argument get path call appendage. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code (Hex) 
SSAAPLN 14 (OE) 08 
SSAP 0 (00) 
SSAPDATT 8 (08) 40 
SSAPFLAG 8 (08) 
SSAPIOA 9 (09) 
SSAPLEN 14 (OE) 10 
SSAPLIOA 12 (0c) 
SSAPPROC 8 (08) 20 
SSAPSEGM 0 (00) 
SSAPSGOF 14 (OE) 
SSAPSTOR 14 (OE) FO 
SSAPVARL 8 (08) 80 
Offset Field/Flag Flag 
Dec (Hex) Length Name Code (Hex) Meaning 
0(000) 8 SSAPSEGM ; Segment name 
8 (008) 1 SSAPFLAG SSA flag 
SSAPVARL 80 Variable length segment 
SSAPDATT 40 Data to ke transferred 
SSAPPROC 20 Segment already processed 
9 (09) 3 SSAPIOA Address of I/O area for 
this segment 
12(00C) 2 SSAPLIOA Length of the I/O area 
for this segment 
14 (00E) 2 SSAPSGOF Offset to length of the 
destination parent 
SSAPLEN 10 "+-SSAPSEGM" length of 
SSA appendage 
SSAPSTOR FO “SSAPLEN*15" length for 
required number of SSA 
appendages). 
SSAAPLN 08 "*-SSAPFLAG" length of 


appendage information 
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STA - STATISTICS TABLE 





DSECT Name: STA 


This layout descrikes the fields used for gathering statistics by the 
partial reorganization utility. The fields are initialized and 
incremented by UNLOAD and RELOAD. The data is referenced by the 
Statistics writer when formatting statistical reports. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag offset Flag 
Name Dec (Hex) Code (Hex) 
STATONTR 0 (000) 
STBLBK4 0 2 (002) 
STBLBH41 82 (052) 
STBLCT 0 (000) 
STHASHS 88 (058) 
STHDOV 212 (O0D4) 
STLOHICT 92 (05C) 
STMXBL 84 (054) es 
STNDCNT 216 (0D8) % 
STRG 216 (0D8) 
STROV 172 (OAC) 
offset Field/Flag Flag 
Dec{Hex) Length Name ’ Code (Hex) Meaning 
0 (00) 4 
0(00) 2 STBLCT Block count 
2(002) 80 STBLBK4O Counters for blocks 1 to 
40 
82 (052) 2 STBLBK41 Counter for blocks over 
40 
84(054) 2 STMXBL Maximum number of blocks 
this range 
88(058) 4 STHASHS Number of blocks over 40 
92(05C) 80 STLOHICT 10 pairs of low-high 
block numbers 
172(0AC) 4Q STROV For reload 
212 (0D4) 4 STHDOV HDAM roots in overflow 
216 (OD8) 2 STNDCNT 
0 (000) 216 STATCNTR Length statistic counters 
216(0D8) 2 STRG Range counter for 


statistics 
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DLZTWAB - TRANSACTION WORK AREA 


DSECT Name: DLZTWAB 


The DLZTWAB macro provides the mapping for the batch partition 
controller's transaction work area. The information is used for 
communication with: 


DL/I task termination 
CICS/VS 

Batch partition 
Sheduling MPS batch jobs 
Online message module 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag offset Flag 
Name Dec (Hex) Code (Hex) 
TWABEND 202 (CA) 
TWABFC 0 (00) 
TWABPCID 4 (04) 
* TWABPCOK 0 (00) #0 
TWABPCSV 76 (4c) 
TWABPSCD 56 (38) 
TWACALL 40 (28) 
TWACOND 192 (CO) 
* TWAEOJSW 0 (00) 40 
TWAMPCE 5 (05) 
TWAMPCPT 1 (01) 
TWAMP SFG 0 (00) 
TWAMPSID 180 (B4) 
TWAMSG 148 (94) 
TWAMSGID 152 (98) 
TWAMSGNO 148 (94) 
TWAMSGOL 156 (9C) 
TWAMSGO 2 160 (AO) 
TWAMSG03 164 (A4) 
TWAMSGO4 168 (A8) 
TWANIPTR 32 (20) 
TWA PARMC 36 (24) 
TWAP SBDL 55 (37) 
TWAP SBN 44& (2c) 
TWAPSBNM 48 (30) 
TWAPSW 172 (AC) 
TWARCODE 190 (BE) 
TWASCHDC 36 (24) 
TWAWLIST 8 (08) 
TWAXCBDL 16 (10) 
TWAXCBN1 24 (18) 
TWAXCBN 2 20 (14) 
TWAXCB2 8 (08) 
TWAXCB3 12 (0c) 
TWAXNAME 182 (B6) 
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RECORD LAYOUT 


- DLZTWAB 


Offset Field/Flag Flag 
Dec (Hex) Length Name _ Code(Hex) Meaning 


**#*#THE FOLLOWING FIELDS ARE USED FOR COMMUNICATING WITH THE DL/I TASK 
TERMINATION ROUTINE*** 


0 (00) 0 
0(00) 1 
1(01) 3 
4 (04) 1 
5(05) 3 


TWABPC 


TWAMPS FG 


TWABPCOK 


TWAEOJSW 


TWAMPC PT 


TWABPCID 


TWAMPCE 


80 


40 


Start of TWABEPC 


BPC flag byte: 

BPC abnormal termination 
processing completed 

EOJ processing reached 
for MPS katch partition 


Address of MPC partition 
table 


Batch partition XECB 
identifier 


Address of specific MPC 
partition table entry 


***THE FOLLOWING IS THE BATCH PARTITION CONTROLLER'S CICS/VS WAITM ECB 
LIST, DELIMITER, AND XECB**#*# 


TWAWLIST 


TWA XCB2 


TWAXCB3 


TWAXCBDL 


TWAXCBN2 


Start of TWAWLIST 


Pointer to BPC‘'s XECB 
(DLZXCBn2) 


Pointer to ABEND XECB 
(DLZXCBn3) 


ECB list delimiter 
(*FFFFFFFF") 


XECB for BPC 


**4#THE FOLLOWING FIELDS ARE USED FOR COMMUNICATION WITH THE BATCH 


8(08) 0 
8 (08) 4 
12 (0C) 4 
16(10) 4 
20(14) 4 
PARTITION *** 

24 (18) 8 
32(20) 4 


TWAXCBN1 


TWAN1 PTR 


XECB name for batch 
initialization (DLZXCBn1 ) 


XECBTAB takle entry 
address for batch 
initialization's XECB 
(DLZXCBn1) 


**#+#THE FOLLOWING FIELDS ARE USED FOR THE BATCH PARTITION CONTROLLER'S 
DL/I SCHEDULING CALL PARAMETER LIST AND THE PSBNAME TO BE SCHEDULED*** 


36(24) 0 
36(24) 4 
40(28) 4 
44 (2C) 4 


TWASC HDC 


TWAPARMC 


TWACALL 


TWAPSBN 


Start of TWASCHDC 


Pointer to parameter 
count 


Pointer to call function 


Pointer to PSB name 
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Offset Field/Flag Flag 

Dec (Hex ) Length Name Code (Hex) Meaning 

48 (30) TWAPS BNM PSB name (PSBNAME) 
55(37) TWAPS BDL PSB name delimiter 


**#THE FOLLOWING FIELD CONTAINS THE SCD ADDRESS*** 


56(38) 


56 (38) 


TWABPSCD 


Start of TWAPIDTE 


** Reserved ** 


***BATCH PARTITION CONTROLLER REGISTER SAVE AREA*** 


76(4C) 


TWABPCSV 


BPC register save area 
(18 fullwords) 


***THE FOLLOWING ARE THE PARAMETER LIST POINTERS, PARAMETERS, AND 
MESSAGE FILLERS PASSED TO THE DL/I ONLINE MESSAGE MODULE (DLZERMSG ) 
FOR ALL BPC MESSAGES* **# 


148 (94) 


148 (94) 


152 (98) 


156 (9C) 


160 (A0) 


164 (A4) 


168 (A8) 


172 (AC) 


‘ 
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TWAMSG 


TWAMSGNO 


TWAMS GID 


TWAMS G01 


TWAMSGO2 


TWAMS GO 3 


TWAMSGO4 


TWAPSW 
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Start of TWAMSG 


Message number pointer 
for all BPC messages 


Partition ID pointer (for 
messages DLZ082I, 
DLZ084I, and DLZ1031) 


BPC module ID pointer 
(for message DLZ1041) 


Module name pointer (for 
messages DLZ082I and 
DLZ084T) 


Termination condition 
pointer and delimiter 
(for message DLZ1031) 


CICS ABEND code rfointer 
and delimiter (for 
message DLZ10 4&1) 


XECBTAB TYPE= pointer 
(for messages DLZ082I and 
DLZ084T) 


PSW pointer and delimiter 
(for message DLZ104I) 


XECBTAB XECB=XECEname 
pointer (for messages 
DLZ082I and DLZ084I) 


Return code pointer and 
delimiter (for messages 
DLZ082I and DLZ084I) 


Program interrupt PSW 


Offset 


Field/Flag Flag 


Dec (Hex) Length Name Code (Hex) Meaning 
180 (B4) 2 TWAMPSID Batch partitiion ID of 


182 (B6) 


190 (BE) 


192 (CO) 


202 (CA) 


TWAXNAME 


TWARCOLE 


TWACOND 


TWABEND 


the form BG, Fi, F2, .. 


XECBTAB XECB=XECBname 
(DLZXCBnn) 


Return code 


BPC termination condition 
(abnormally or normally) 


CICS ABEND completion 
list entry 
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UIB. ~ USER INTERFACE BLOCK 


DSECT Name: DLIUIB 


This control kLlock is used by extended DL/I call interface support 
(along with CICS/VS high-level language support). This secticn 
contains scheduling and system call status information returned to the 
user. (Prior to Version 1.4, this information was returned to the 
user in the TCA.) 


RECORD LAYOUT - UIB (USER SECTION) 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0(00) 0 UIB Start of UIB DSECT 
0(00) 4 ULBPCBAL PCB address list 

4 (04) 2 UIBRCODE DL/I return codes 
4(04) 1 UIBFCTR Return code 

5(05) 1 UIBDLTR Additional information 
6 (06) 2 Unnamed ** Reserved *+* 

8 (08) UIBLEN Length of UIB (for 


Assembler language only) 
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UIB — USER INTERFACE BLOCK 


DSECT Name: DLZUIB 


The user section of this control block is used by extended DL/I call 
interface support (along with CICS/VS high-level language support). 
This section contains scheduling and system call status information 
returned to the user. (Prior to Version 1.4, this information was 
returned to the user in the TCA.) A system section of the UIB follows 
the user section. It is used by DL/I as task-local storage. Unlike 
PST storage, UIB storage is not released at scheduling termination. 


RECORD LAYOUT - UIB (USER SECTION) 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0 (00) 0 UIB Start of UIB DSECT 
0(00) 4 UIBPCBAL PCB address list 

4 (04) 2 UIBRCODE DL/I return codes 

4 (04) 1 UIBFCTR Return code 

5 (05) 1 UIBDLTR Additional information 
6 (06) 2 Unnamed ** Reserved *+* 

8 (08) UIBLEN Length of UIB (for 


Assembler language only) 


RECORD LAYOUT - UIB (SYSTEM SECTION) 


offset Field/Flag Flag 
Dec (Hex) Length Name . Code(Hex) Meaning 
8 (08) 64 UIBREGSV Register save area 
72 (48) 8 UIBPSB PSB name on scheduling 
call 
80(50) 4 UIBFUNC Call function tyre 
84(54) 4 UIBSDIB System DIB address 
88 (58) 1 UIBFLAG1 UIB Flag 
UIBSCHD 01 Scheduling call 
UIBDB 02 Data base call 
UIBTERM 04 Term call 
UIBMPS 038 UIB acquired for MPS task 
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89 (59) 


90(5A) 


91(5B) 


92 (5C) 
96(60) 


100 (64) 


104 (68) 
106(6A) 
107 (6B) 
110 (6E) 
114(72) 
118(76) 
122 (7A) 


126 (7E) 


5-178 


WwW rm bh 


72 


UIBXRPSB 


UIBHLPI 


UIBREMOT 


UIBFLAG 2 
UIBDUMP 


UIBTY PSB 


UIBRSTAT 
UIBXBGUN 


UIBXLOC 
UIBXREM 
UIBXSTOR 
UIBXUNSC 
UIBPST 


UIBSUSP 


UIBIPCBA 


UIBICODE 


UIBTSKID 
UIBMSGPM 
ULBMSGP2 
UIBMSGP3 
UIBWORK 

UIBTRCSV 


UIBSLEN 


20 


40 


80 


80 


C6 
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Remote with local PSB 
scheduled 


HLPI command level 
program 


PSB on remote system 


Task dump taken 


Type of PSB 
oo Local 
Remote 
Local and remote 


yt 
te 


Local and remote status 
XPSB scheduled call 

in progress 

Local PSB scheduled 
Remote PSB scheduled 
PCB list storage 
acquired 

Local PSB wnscheduled 


Task PST address 


Task suspend chain 
pointer 


Internal address of 
PCB address list 


Initial DL/I return code 
** Reserved ** 

CICS/VS task ID 

Message parameter list 
Second message parameter 
Third message parameter 
Work area 

DLZOLTO00O register save 
area 


Length of user and system 
UIB 


XMPRM - HDAM/HIDAM USER SECONDARY INDEX SUPPRESSION ROUTINE INTERFACE 
TABLE 


DSECT Name: DMBXMPRM 
This table is described as part of the general structure and 


description of the data management block (DMB). 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code( Hex) 

DMBXMPLN 28 (1C) 

DMBXMRES 32 (20) 

DMBXMSGN 0 (00) 

DMBXMXDN 8 (08) 

DMBXMXEP 24 (18) 

DMBXMXNM 16 (10) 


RECORD LAYOUT - XMPRM 


Offset Field/Flag Flag 

Dec (Hex) Length Name Code (Hex) Meaning 

0 (00) 8 DMB XMSGN Name of indexed segment 

8 (08) 8 DMB XMXDN Name of XDFLD 

16(10) 8 DMBXMXNM Name of user exit routine 

24(18) 4 DMBXMXEP Entry point of user exit 
routine 

28(1C) 2 DMBXMPLN Length of index 
maintenance parameters 

30(1E) 2 ** Reserved *#* 

32(20) 4 DMBXMRES Reserved for 


initialization 
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AWR.- INDEX WORK RECORD 


DSECT Name: XWR 


This DSECT describes an index work record that is created by the 
partial reorganization utility while performing pointer maintenance. 


ALPHABETIC LIST OF FIELD/FLAG NAMES 


Field/Flag Offset Flag 
Name Dec (Hex) Code(Hex) 
XWRCKEY 22 (016) 

XWRCRDB 20 (014) 

XWRCRDSG 21 (015) 

XWRCTYPE 18 (012) 

XWRFSEQ 12 (00C) 

XWRGFLAG 19 (013) 

XWRHLL 0 (000) 

XWRHOO 2 (002) 

XWRLFIX 21 (015) 16 
XWROACT 16 (010) 

XWRRCOMP 8 (008) 

XWRRMOVE 4 (004) 

XWRSTART 0 (000) 
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Offset Field/Flag Flag 


Dec (Hex) Length Name __Code (Hex) Meaning 

0 (000) 4 XWRSTART 

0(000) 2 XWRHLL VLR length control field 

2 (002) 2 XWRHOO VLR control binary zeros 

4 (004) 4 XWRRMOVE New RBA of a moved 
segment 

8 (008) 4 XWRRC OMP Old RBA of a segnent for 
compare 

12 (00C) 4 XWRFSEQ Record sequence number 
for nonunique index 

16(010) 2 XWROACT offset in ACT that built 
this record 

18(012) 1 XWRCTYPE Record type code 

19(013) 1 XWRGFLAG Processing option flags 

20(014) 1 XWRCRDB Data base ID of segment 
to be updated 

21 (015) B 8 XWRCRDSG Data set group ID of 
segment to be updated 

XWRLF IX "*-XWRSTART" length of 

fixed part of record 

22 (016) 1 XWRCKEY Key of segment to be 
updated 
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RECORD LAYOUTS 


The rest of this section provides layouts and field descriptions for 
the following records: 


Accumulation Header Record 
Accumulation Record 

Application Program Scheduling Record 
Application Program Termination Record 
Checkpoint Log Record 

Checkpoint Record 

Control Data Set 

Data Base Log Record 

Data Record (Input) 

Data Record (Output) 

Date/Time Table 

Delete Work Area 

Delete Work Space Prefix 

DL/I Control Record 

Dump Header Record 

Dump Record Prefix 

File Open Record 

Header Record (Input) 

Header Record (Output) 

Index Maintenance Work Area 

List Control Block 

Output Record Containing Segment Prefix 
Output Table Record 

Short Segment Table 

Sorted List Block 

SSA for GU Call by Key 

SSA for GU Call by RBA 

SSA for the XMAINT Call to the Analyzer 
Statistics Record 

Description of Variakle Output 

Work File 1 

Description of Variable Input 

Work File 3 
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ACCUMULATION HEADER RECORD 


This record is used ky modules DLZUC350 and DLZURDBO. 


Hex Dec Name In Description 
0 QO HLENGTH 2 Length of cum header record 
2 2 HSPACE 2 Zeros 
4 4 HCODE 1 Header record ID X‘25" 
5 5 HFLG 1 Type of data set 
X'02" VSAM ESDS 
X'O4&* VSAM KSDS 
6 6 HLRECL 2 Record length 
8 8 HORG 1 Prefix organization code 
| 9 9 HPURGDT 7 Purge date/time for data 
base data set 
9 9 HPURDATE 3 Purge date for data base 
| data set -YYDDDF 
C 12 HPURTIME 4 Purge time for data base 
l data set -HHMMSSOF 
10 16 HDDNAME 8 Data set symbolic filename 
18 24 HDBNAME 8 Data base name 
20 32 4HDSID 1 Data set ID 
21 33 4HDATE 3 Run date - YYDDDF 
24 36 HTIME 4 Run time - HHMMSSOF 
28 40 HSEQ 2 Zeros 
| 2A 42 HBLKSIZE 2 zeros 


ACCUMULATION RECORD 


This record is used by modules DLZUC350 and DLZURDBO. 


Hex Dec Name Ln Description 

0 Q CLENGTH 2 Length of cum record 

2 2 CSPACE 2 Zeros 

4 4 CCODE 1 X*50" record identifier 

5 5 CFLG 1 Type of data set/entry 
X‘'0O1" VSAM KSDS/Entry was 

VSAM ERASED 

X'OQ2* VSAM ESDS 
X*04" VSAM KSDS 

6 6 CIDLN 2 Length of CDATAID field 

8 8 CDBNAME 8 Data base name 


Licensed Material - Property of IBM 


5-183 


10 
11 
14 
18 


1A 


APPLICATION PROGRAM 


This record is used 


16 
17 
20 
24 
26 


CDSID 
CDATE 
CTIME 
CSEQ 
CCOUNT 


CDATAID 
CDATAOL 


CDATASEG 


DLZBACKO. 

Hex Dec Name 
0 OQ LENGTH 
2 2 SPACE 
4 4& LOGFLAG 
5 5  SCHDCODE 
8 8 PSBNAME 
E 14 cIcsID 


Var 
Var 


Var 


Data set ID 

Date - YYDDDF 

Time - HHMMSSOF 

Sequence number 

Number of data elements in CDATA 


KSDS prime key or ESDS RBN 

One or more 4 byte data elements: 

bytes 0-1 - offset into data set record 

bytes 2-3 - length of corresponding 
CDATASEG 

One or more segment data entries to 

be moved into data set record. 


SCHEDULING RECORD 


by modules DLZRDBLO, DLZRDBL1, DLZLOGPO, 


Ln 


2 
2 
1 
1 


and 


Description 
Length of record 


Binary zero 

Record type code - X*'08" 
Task ID 

PSB name 


Packed CICS Transaction ID 
(online only) 


APPLICATION PROGRAM TERMINATION RECORD 


This record is used 


DLZBACKO. 


Hex Dec Name 


0 0 
2 2 
4 4 
5 5 
D 13 
E 14 
36 54 
5-184 


PLENGTH 


PSPACE 


ALLOGFLG 


ALPSBNAM 


ALID 


TSKSTAT 


cIcsiID 


by modules DLZRDBLO, DLZRDBL1, DLZLOGPO, and 


40 


Description 
Halfword binary length of logical record 


Halfword reserved for system use 
(binary zero) 


Identifies this logical record as 
application program termination 
record; value is X*07" 

PSB name 


TASK ID 


10 fullwords of Accounting from PSTACCT 
(online only) 


Packed CICS transaction I.D. (online only) 
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CHECKPOINT LOG RECORD 


Checkpoint log records are used to restart a job near its point of 
failure. The records are created and written on the DL/I log (if data 
base logging is active) if requested by the user via checkpoint calls 
(CHKP). Each log record contains a user-supplied unique checkpoint 
identification passed with the CHKP call. 


In case of a job failure in a batch environment, the backout utility 
can be run to backout data base changes occurring since the last 
checkpoint record was written. For MPS and/or online tasks with 
CICS/VS dynamic transaction backout active, bkackout is performed 
automatically to the last checkpoint when a task fails. 


Hex Dec Name In Description 
0 0 CHKPLEN 2 Length of log record 
2 2 CHKPSPC 2 Blanks/zeros 
4 & CHKPCODE 1 Log record ID 
CHKPLRID 41 Checkpoint Log record ID 
a CHKPPSB 8 Checkpoint PSB name 
D 13 CHKPID 8 User checkpoint ID 
15 21 CHKPRLEN Length of checkpoint log record 


CHECKPOINT RECORD 


This DSECT (RCHKREC) defines the format of the checkpoint records 
within the unloaded data base for HD reorganization unload/reload 
utilities. 


Hex Dec Name in Description 
0 0 RCHKPTID 1 Identifies checkpoint record; 
Always X*‘00' 
1 1 RCHKNAME 6 Constant for checkpoint record; 
Always C*CHKPNT* 
7 7 RCHKNUM 4 Checkpoint number; 1-9999 (decimal) 
B 11 1 Comma, for message to SYSLOG and SYSLST 
Cc 12 RCHKVOL1 6 If tape, file serial 


number of output volume one at 
checkpoint time. If DASD - **##*+#, 


12 18 1 Comma, for message to SYSLOG and SYSLST 
13 19 RCHKVOL2 6 If tape, file serial 
number of output volume two at 
checkpoint time. If DASD -— **##¥*+#, 


19 25 1 Comma, for message to SYSLOG and SYSLST 


1A 26 RCKSEGNM 8 Segment name of root segment in process 
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22 34 
26 38 


28 40 


2C 44 


2D 45 


2E 46 


11A 282 
126 294 
12A 298 
12E 302 


Notes: 


CONTROL 


at checkpoint time 


4 Reserved for future use 
RCHKRECL 2 Length of I/O area needed for GU call 
at restart time 
RCHKPOSC 4 RBN of current record, if HD organization 
RCHKPTNR 1 Number of checkpoint records 
(1 or 2) 
RCHKEYLN 1 Key length of current segment, if 
HISAM 
RCKEYVAL 236 Segment sequence field value, if 
HISAM 
Reserved 12 Reserved 
RCHKSEG 4 Total number of segments unloaded 
RCHKROOT 4 Total number of root segments unloaded 
RCHKREND Var Statistics table 


e Dummy checkpoint record does not contain statistics table. 
e Checkpoint message written to SYSLOG and SYSLST consists 


of message prefix DLZ381I followed by bytes 1 - 34 of the 
checkpoint record. 


DATA SET 


Macro DLZUCDSO contains the DSECT defining format of a control list 


entry. 


One or more list entries may ke contained in the control list. 


The control list may spread over one or more control list blocks. 


***£Control Information and Identifier*** 


Hex. 


0 


18 


19 


1A 
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Dec Name Ln Description 
0 LECELCNT 2 Number of 1600 byte records in 
control data set 
2 LELSTLOC 2 Displacement to next entry 
4 LECDSID 20 Identifier: * CONTROL DATA SET *. 
24 LEFLG4 1 Flag byte 4: 


FLAG Name Hex Code Meaning 


LESTAT 80 Statistics to be provided 
LESUMM 40 Give summary for message CLZ978I 
25 Unnamed 1 **Reserved** 
26 LESRTSZE 2 Maximum work file record length used 


as SORT size parameter by prefix 
resolution utility (DLZURG10). — 
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***#Data Base List Entry*** 


Hex 


0 


10 
12 
13 


Dec 


0 


12 


16 
18 
19 


Name 


LEFPTR 


LENAME 


LESLPTR 


LECRNO 
LELEN 


LEFLG1 


© i 


2 
1 
1 


Description 


List entry forward pointer (to 
next list element at same level) 


DBD name. 


List entry sublist pointer (to list 
at next lower level) 


Input control card number 
Length of list entry 


Flag byte 1: 


Flag Name Hex Code Meaning 


LEF1SOPT 
LEFiSMET 


LEF1iS 
LEF1iR 
LEF11 


*##*#Segment List Entry*** 


Hex 


0 


10 
12 
13 


14 
18 


Dec 


0 


12 


16 
18 
19 


20 
24 


Name 


LEFPTR 


LENAME 


LESLPTR 


LECRNO 
LELEN 


LEFLG1 


80 
40 


02 
01 
00 


in 
4 


2 
1 
1 


User specified scan method oftion 
If bit 1=0 use SEQ scan method 

If bit 1=1 use SEG scan method 
Data base is scanned 

Data base is reorganized 

Data base is initially loaded 


Description 


List entry forward pointer (to 
next list element at same level) 


Logical parent segment nare. 


List entry sublist pointer (to list 
at next lower level) 


Input control card number 
Length of list entry 


Flag byte 1: 


Flag Name Hex Code Meaning 


LEF1SOPT 
LEF1SMET 


LEF1S 
LEF1R 
LEF1I 
LEPSDB 


LELSDB 


***Secondary List Entry*** 


Hex Dec 


Name Ln 
LEFPTR 4 


80 
40 


02 
01 
00 
4 


4 


User specified scan method oftion 
If bit 1=0 use SEQ scan method 

If bit 1=1 use SEG scan method 
Data base is scanned 

Data base is reorganized 

Data kase is initially loaded 


PSDB for segment entry 


LSDB for segment entry 


Description 


List entry forward pointer (to next List 
element at same lavel) 
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4 4 LENAME 8 Referenced data base name. 
Cc 12 LEFDLP 2 Length of logical parent concatenated key. 


E 14 LEFLG3 1 Flag byte 3: 


Flag Name. Hex Code Meaning 


LET23 80 Use type 20/30 records. 
LELCSQ 40 Use logical child sequence field. 
LENLC 20 No logical child found for logical 
parent. 

LELPCK 02 Use logical parent concatenated key. 
LELPOA 01 Use logical parent old address. 

F 15 Unnamed 1 **Res erved** 

10 16 LEFDLC 2 Position of logical 


child pointers in prefix 
12 18 LELEN 1 Length of list entry 


13 19 LEFLG1 1 Flag byte 1: 


Flag Name Hex Code Meaning 


LEF1SOPT 80 User specified scan mehtod option 
LEF1SMET 40 If bit 1=0 use SEQ scan method 
If bit 1=1 use SEG scan method 
LEF1S 02 Data base is scanned 
LEF1R 01 Data base is reorganized 
LEF11 00 Data base is initially loaded 
14 20 LELC SC 1 Logical child's segment code 
15 21 LEFLG2 1 Flage byte 2: 


Flag Name Hex Code Meaning 


LECTR 80 Update counter 
LELCF 40 Update logical child forward pointer 
LELCL 20 Update logical child last pointer 
LELP 10 Update logical parent pointer 
LELTF 08 Update logical twin forward pointer 
LELTB 04 Update logical twin backward pointer 
LECUS 02 Counter used this logical child 

17 23 Unnamed 2 **#Reserved** 


DATA BASE LOG RECORD 


Note: If CICS journaling is used, see Section 3 under the heading 
"CICS Journal Logger" for additional information. 


This record is used Ly modules DLZRDBLO, DLZRDBL1, DLZBACKO, DLZLOGPO, 
DLZURDBO, DLZUC1i50, and DLZUC350. 


Hex. Dec Name Ln Description 
0 0 DLENGTH 2 Length of record 
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10 
18 
20 
21 
24 
28 


2A 


7 


10 
12 
14 
16 
24 
32 
33 
36 
40 


42 


DSPACE 


DLOGCODE 


DLOGFLG1 


DLOGFLG2 


DLOGFLG3 


DIDLN 
DOFFSET 
DDATALN 
DCCODE 
DP GMNA ME 
DDBDNAME 
DDSID 
DDATE 
DTIME 
DSEQ 


DDATAID 


WO FP © © HO NH N N 


= 


Var 


Zero 


Log 


x*"50" 
X'51"° 


Bits 


0-3 


Bits 
0= 
1-3=001 





=110 
=000 
=111 


record ID 
Data base log record 
Old copy of a replaced segment 


Task ID 
Count of FSE records present 


Index maintenance record 
Physical replace 

Physical delete 

Physical insert 

Logical delete 

POINTER maintenance record 
Counter Maintenance 

Last record of a change group 
ESDS data set 

KSDS data set 

HS organization 

HD organization 

New block call 


REPL call 

DLET call 

ISRT cali 

Modification by control region 
Modification by message or Latch 
message program 

Modification by batch program 
Record written by backout 

First log record of a segment 
Last log record of a segment 


Length of DDATAID field 


Data offset from beginning of block 


Length of DDATA field 


DL/I completion code 


PSB 


name 


Data base name from the DMB 


File identification within the DMB 


Date - YYDDDF 


Time - HHMMSSOF 


Sequence stamp 


KSDS - KSDS prime key 
ESDS - Relative block number 


POINTER maintenance record (DDATALN is set to H‘'4") 
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DDATA 4 New pointer value 


: 


Old pointer value 


LOGICAL DELETE record (DDATALN is set to H‘'2") 
DDATA 2 Segment code and new delete byte 


2 Segment code and old delete byte 


PHYSICAL INSERT record (DDATALN is set to segment length) 


DDATA Ve New segment data 
DFSEOFF 2 Offset to FSE 
DFSE 4 New FSE value 


If more than one FSE changes, CFSEOFF and 
DFSE are repeated for each additional one. 


PHYSICAL DELETE record (DDATALN is set to segment length) 


DDATA V#* 01d segment data 
DFSEOFF 2 Offset to FSE 
DFSE 4 New FSE value 


If more than one FSE changes, DFSEOFF and 
DFSE are repeated for each additional one. 


PHYSICAL REPLACE record (DDATALN is set to segment length) 


DDATA V¥ Old segment data - DLOGCODE = X‘'51" 
New segment data - DLOGCODE = X‘'50* 
V* = varies with segment length 
DCOUNTER The last four bytes of every log record contain 


the log record sequence number. Numbers are 
incremented by one. The sequence number of the 
first record is one. 
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DATA RECORD 


This record 


Hex Dec 
0 0 
4 4 
5 5 
8 8 


DATA RECORD 


This output 


Hex. Dec 
0 0 
4H 4 
5 5 
6 6 
8 8 


(INPUT) 


is used as input to module DLZURRLO. 


‘Name Ln Description 
Unnamed 4 ESDS RBA identifier; 
unused if KSDS 
DSIDIN 1 Character I if KSDS; O if ESDS 
Unnamed 3 Reserved 
Unnamed Var KSDS or ESDS physical record image. 


The first four bytes contain the VSAM 
relative byte address (RBA) of the 
next ESDS record containing overflow 
dependent segments for the root 
segment. The RBA is zero if no (more) 
ESDS records follow. The last byte of 
the data record contains a special 
physical code X'0O". If the data base 
contains only HISAM root segments and 
ACCESS=SHISAM, the physical ccde and 
RBA do not exist. 


(OUTPUT) 


record is used by module DLZURULO. 


Name In Description 
CONTOUT 4 ESDS RBA identifier; unused 
if KSDS 
DSIDOUT 1 Character I if KSDS; O if ESDS 
BLNKDOUT 1 (Not used) 
DSRECLN 2 Record size + prefix length 
DATA Var KSDS or ESDS physical record image. 


The first four bytes contain the VSAM 
relative byte address (RBA) of the 
next ESDS record containing overflow 
dependent segments for the root 
segment. The RBA is zero if no (more) 
ESDS records follow. The last byte of 
the data record contains a special 
physical code X'0". If the data base 
contains only HISAM root segments and 
ACCESS=SHISAM, the physical ccde and 
RBA do not exist. 


DATE/TIME TABLE 


This record 


Hex Dec 


0 0 
1 1 


is used ky modules DLZUCCTO and DLZUC150. 


Name Ln Description 
TABFLAG1 1 Blank. Used as table delimiter 
TABFLAG2 1 Contains a 0 or 1 to denote routing 
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TABFLAG3 


TABFLAG4 
TABFLAGS 


TABFLAG6 


DELETE WORK AREA 


for the 


data base in this table 


Contains flags as follows: 


Name 
TABF 3N 
TABF 3DT 





Bit Meaning 
0 Record to LOGOUT if 1 
1 Purge date specified 


Reserved for future use 


Reserved for future use 


Contains date/time, if specified 


This record is used ky module DLZDLDOO. 


Hex 


0 


10 


10 
14 
18 
1c 
20 
22 
24 


5-192 


Dec 


0 


12 


16 


16 
20 
24 
28 
32 
34 
36 


Description 


Resource ID for PI queuing 
(must be first in WKA) 


RBA 


portion of resource ID 


Chain (prior content PSTWRKD1-2) 


ID of current work area; CMB 
number, ACB number, and work 
area sequence number 


DMB/ACB number part of resource ID 


DMB 


number 


Prior scan exit address (PSTWRKD2) 


Address of next WKA 


Switch 


Flag Name Hex Code Meaning 


Name Ln 
. DLTRSCID 7 
DLTRSCRB 4 
DLTCHN 8 
DLTPWAID 4 
DLTRSCID 3 
DLTDMBNO 2 
Unnamed 4 
DLTWANXT 4 
DLTWASW 1 
DLTWSBEG 01 
DLTERFLG 02 
DLTLRFLG 04 
DLTVRFLG 08 
DLTSCFLG 10 
DLTIMFLG 20 
DLTWAPRI q 
DLTDMB 4 
DLTSPSDB 4 
DLTLPSDB 4 
DLTISLEV 2 
DLTTEMPH 2 
DLTESECL 4 


First work area in work space 
R-O record flag required 

R-O record flag required 

due to LP LC counter update 
Verifies are required 
Pre-scan was done 

Index maintenance was done 


Address of prior WKA 


DMB 


address of this WKA 


Scan start PSDB 


Scan end PSDB 


Level at which scan started 


Half word temporary save area 


Secondary list address 
causing exit 
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28 40 


2c 44 
30 48 
34 52 
36 54 
38 56 
38 56 
3c 60 
40 64 
44 68 
48 72 
4c 76 
50 80 
54 84 
54 84 
54 84 
58 88 
5C 92 
64 100 
88 136 


Exit DMB address 
Prior DMB‘s PSDB (exit point) 
Exit RBN 


Offset from DLTWA to 
concatenated key 


Length of this work area 
“Middle' of WKA 


Save area for prior L/C 
on twin chain 


Save area for current L/C 
on twin chain 


Save area for next L/C 
on twin chain 


Working register save area (R6) 
Working register save area (R7) 
Working register save area (R8) 
Working register save area (R9) 
Level information beginning 


Flag byte 


Flag Name. Hex Code Meaning 


DLTEDMB 4 
DLTEPSDB 4 
DLTERBN 4 
DLTLPKOF 2 
DLTWASZ 2 
DLTMID 36 
DLTPLT 4 
DLTCLT 4 
DLTINLT 4 
DLTTEMP1 4 
DLTTEMP2 4 
DLITEMP3 4 
DLTTEMP4 q 
DLTLEVEL 8 
DLTRFLG 1 
DLTSVPP 01 
DLTSVPC 02 
DLTLDO 03 
DLTKEYSW 04 
DLTTEFLG 08 
DLTPSDB 4 
DLTRBN 4 
DLTLEVLN 8 
DLTMIDLN 36 
DLTWALN 92 


DELETE WORK SPACE PREFIX 


This record 


Hex Dec 
0 0 
4 4 
8 8 


Name 


DLTBLKNM 


DLTBUFFA 


DLTNXTWS 


Ln 


4 


Save segment and parents 
Save segment and physical children 
Logical delete only 
Key stored for this level 
Temporary lock enqueue was done 
Current PSDB this level 
REN of segment this level 
Length of level information entry 
Length of last half work area 


Length of basic delete work area 


is used by module DLZDLDOO. 


Description 


Block number of buffer (from 
PSTBLKNM) 


Address of buffer prefix 
(fron PSTBUFFA) 


Address of next work space 
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Cc 12 DLTPRIWS 4 Address of prior work space 
10 16 DLTSIZWS 4 Usable size of this space 


14 14 4 | Reserved 


DL/I CONTROL RECORD 


This record is used by module DLZDLOCO. 





Hex Dec Name Ln Description 
0 0 RECDATCR 3 Creation date - YYDDDF 
3 3 RECTIMCR 5 Creation time —- HHMMSSTHOF 
8 8 RECDATRE 3 Recovery date - YYDDDF 
B 11 RECTIMRE 5 Recovery time ~- HHMMSSTHOF 
10 16 RECDATER 3 Reserved 
13 19 RECTIMER 5 Reserved 
18 24 RECNXRBA 4 Not used 
1c 28 RECDOS 3 DL/I component code (DLZ) 
1E 31 RECVERS 3 Version and release level 
22 34 RECPTF 2 PTF number 
24 36 RECLKSDS 4 KSDS record length (HISAM only) 
28 40 RECLESDS 4 ESDS record length 
2c 44 RECORGAN 1 Data base organization 
Name Character Meaning 
RECHCAM D HDAM 
RECHI DAM I HIDAM 
RECHISAM Ss HISAM 
2D 45 Var Reserved to end of control interval 


DUMP HEADER RECORD 


This record is used by modules DLZUDMPO and DLZURDBO.. 


Hex Dec Name Ln Description 
0 0 DHSAMCTL 1 Reserved for future use 
1 1 DUMP ID 41 Character D 
2 2 DCBNOOUT 2 Reserved for future use 
4 4 DUMPDBDN 8 Name of the DMB devised from the Data 
Base Description (DBD) 
Cc 12 DIDDNOUT 8 Contains the name of the key sequenced 


data set if this is dump of a KSDS 
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14 


18 


1c 


24 


26 


28 


2A 


2c 


2E 


30 


DUMP RECORD 


This record 


H 


on ww F&F OO 


20 


24 


28 


36 


38 


40 


42 


44 


46 


48 


Dec 


0 
4 
5 
6 


8 


DDATEOUT 
DTIMEOUT 
DODDNOUT 
DIBLKOUT 
DIRECOUT 
DOBLKOUT 
DORECOUT 
DKEY LEN 

DKEYPOS 

DDBDORG 


PREFIX 


data set 

Julian date in packed decimal - OOYYDDDF 
Time in packed decimal - HHMMSSOF 
Contains the name of the entry sequenced 
data set if this is dump of an ESDS 

data set 


Contains KSDS control interval size if 
this is dump of KSDS data set 


Contains KSDS record length if 
dump of KSDS data set 


Contains ESDS control interval size if 
this is dump of ESDS data set 


Contains ESDS record length if 
dump of ESDS 


Contains KSDS key length if 
dump of KSDS 


Contains KSDS relative key 
positive if dump of KSDS 


Data set organization code 


is used by module DLZUDMPO. 


Name 
COUNTOUT 
DSIDOUT 
Reserved 
DSRECLN 


DATA 


FILE OPEN RECORD 


Ln 


Var 


Description 

ESDS RBA identifier; record count if KSDS 
Character I if KSDS; O if ESDS 

Reserved for future use 

Record size + prefix length 


Physical record image 


This record is used by modules DLZRDBLO, DLZRDBL1, DLZLOGPO, DLZUC150, 
and DLZUC350. 


i 
mW £& WW o 


Dec 


0 
2 


Name 
DLENGTH 
DSPACE1 
DLOGCODE 


DLOGFLG1 


Ln 
2 
2 
1 
2 


Description 

Length of record 

Binary zero 

Record type code - X‘'2F* 
Data set organization 


X*00" = ESDS 
X*'04* = KSDS 
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7 7 DSPACE2 9 Binary zero 


10 16 DPGMNAME 8 Data set filename (ACB) 

18 24 DDBDNAME 8 DMB name 

20 32 DDSTID 1 DSGACENO (2 if HISAM. 
ESDS; otherwise 1) 

21 33 DDATE 3 Binary zero 

24 36 DTIME 4 Binary zero 

28 40 DCOUNT2F 4 Log record sequence number 


HEADER RECORD (INPUT) 


This record is used as input for module DLZURRLO. 


Hex Dec Name In Description 
0 0 Unnamed 1 X'FF* header/statistic record identifier 
1 1 IDIN 1 Character R 
2 2 RECLNOUT 2 Size of output record, including 
prefix 
4 4 DBDNAME 8 Name of the DMB derived from the 
Data Base Description (DBD) 
Cc 12 DDNAMEI 8 Name of key sequenced data 
set (KSDS) 
14 20 Unnamed 4 Julian date in packed decimal-OOYYLCDDF 
18 24 Unnamed 4 Time in packed decimal-HHMMSSOF 
1c 28 DDNAMEO 8 Name of entry sequenced data set (ESDS) 
24 36 BLKSIZEI 2 KSDS record length * number of 
records/control interval 
26 38 LRECLI 2 KSDS record length 
28 40 BLKSIZEO 2 ESDS record length * number of 
records/control interval 
2A 42 LRECLO 2 ESDS record length 
2c 44 Unnamed 1 0; (Not used) 
2D 45 KEYLENGI 1 KSDS key length 
2E 46 KEYPOSI 2 KSDS relative key position 


HEADER RECORD (OUTPUT) 


This record is used by module DLZURULO. 


Hex Dec Name Ln Description 
0 0 HSAMCTRL 1 X'FF* header/statistic record identifier 
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14 
18 
ic 


24 


26 


28 


2p 
2c 


2E 


12 


20 
24 
28 


36 


38 


40 


42 


44 


46 


IDOoUT 


RECLNOUT 


DBDOUT 


IDDNOUT 
DATEOUT 
TIMEOUT 
ODDNOUT 


IBLKSOUT 


ILRECOUT 


OBLKSOUT 


OLRECOUT 
IKEYLENG 


IKEY POS 


INDEX MAINTENANCE WORK AREA 


Character R 
Size of output record, including prefix 


Name of the DMB derived from the Data 
Base Description (DBD) 


Name of key sequenced data set (KSDS) 
Julian date in packed decimal-OOYYDDDF 
Time in packed decimal-HHMMSSOF 

Name of entry sequenced data set (ESDS) 


KSDS record length * number of 
records/control interval 


KSDS record length 


ESDS record length * number of 
records/control interval 


ESDS record length 
KSDS key length 


KSDS relative key position 


This record is used by module DLZDMXTO. 


Hex Dec Name In Description 
0 0 XSAVDSGA 4 Save location for caller's DSG 
4 4 XSAVPCB 4 Save location for caller"s PCB 
8 8 XSAVUSER 4 Save location for caller‘s I/O area 
Cc 12 XSAVIQPR 4 For caller“*s call list address 
10 16 XPHYSPP 4 Save location for physical 
parent pointer. 
14 20 XWORKPCB 4 Save location for XMAINTs PCB 
18 24 XWORKSAA 4 Address of SSA built by DLZDXMTO 
1c 28 XWORKFNC 4 XMAINTs function code for call 
20 32 XDPSDBAD 4 Address of PSDB of indexed segment 
24 36 XDSECLST 4 Secondary list of indexed segment 
28 40 XDRID 8 Indexed segment ID for enqueue 
28 40 XDRBAPTR 4 RBA of indexed segment 
2c 08 ‘XDDMBACB 4 DMB and ACB numbers of 


indexed segment 
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30 
30 
34 


38 


3c 


40 
44 


48 
4c 
50 
52 
54 
56 
58 


5C 
60 
64 


68 
69 


6A 


6B 


5-198 


48 
48 
52 


56 
60 


64 


68 


72 


80 


82 


84 


86 
88 


92 


96 


100 


104 
105 
106 


107 


XNRID 
XNRBAPTR 


XNDMBACB 


XSPSDBAD 


XSSECLST 


XSRBAPTR 


XNPSDBAD 


XDSDBAD 
XSSDBAD 


XPROT 


XRPREFIX 


XSPREFIX 
XNSEGLEN 


XNKEYLEN 
STACK1 
STACK2 
STACK3 


XSAVSTC 


XCALLFUN 


XTSWIT1 


1 


Indexing segment ID for enqueue 
RBA of indexing segment 


DMB and ACB numbers of 
indexing segment 


PSDB of index source segment 


Secondary list of index source 
segment 


RBA of index source segment 


Address of PSDB of indexing 
segment 


Index target segment SDB address 
Index source segment SDB address 
Length of protected data 

Record prefix length 

Segment prefix length 

Length of indexing segment 


Sequence field length of index 
pointer segment 


Return address for first level 
subroutine 


Return address for second leve 
subroutine 


Return address for third level 
subroutine 


Save status code 
*Reserved* 


Call attributes byte 


Flag Hex 

Name Code Meaning 

ISLOAD 80 Load mode 

ISASRT 40 ASRT call 

ISDLET 20 DLET call 

ISISRT 10 ISRT call 

ISREPL 08 Function is replace 
ISUNLD 02 UNLD call 
Temporary switch 

Flag Hex 

Name Code Meaning 

XNOSUPR 80 No suppression for 


this index 

Old segment was 
suppressed 

PTR to XDS only, no 


XOLDSUPR 40 


XPTRONLY 20 
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CONCAT key 


XISPRIM 10 A primary index 
was found 
XNULLFLD 01 Null value 
suppression 
XEXITRT 02 Exit routine for 
suppression 
XDATACHN 04 XNS changed in a 


replace call 
6E 110 XWORKPUT 2 Begin of record for load 


(The rest of this record starts on a fullword boundary) 


70 112 XWORKUSR 0 XMAINTs I/O area for call 

70 112 XWORKDUM 2 Reserved 

72 144 XWORKSEG 0 Start of segment 

72 114 XWORKCD 1 Segment code 

| Flag Hex 
Name Code Meaning 
XNSEGCO1 01 Segment code of 
indexing segement 

73 115 XWORKDEL = 1 Delete byte in indexing segment 

74 116 XWORKPTR 4 Pointer in indexing segment 

78 120 XWORKKEY VAR Area for key in indexing segment 


(The SSA for the XMAINT call to the analyzer is created behind the key) 


LIST CONTROL BLOCK 


This record is used by module DLZUSCHO. 


Hex Dec Name Ln Description 
ic 28 ENTLNGTH : 2 The length, in bytes, of each entry 
in the list 
1E 30 COMPLOC 2 The offset from. the beginning of 
each entry to the key field 
20 32 ©  COMPLNG 2 The length of the key field 
22. 34. NUMENT 2 The current number of entries in 
the list 
24 36 CHAINLOC 4 The location of the first of a chain of 
core blocks containing sorted list entries 
28 40 CHBACK . 4 The location of the last block in the 
chain 
2c AA _ENTBLKSZ 4 The size of each core block used for list 


ae eee entries (includes the chaining fields). 
This. value is calculated as follows: ENTBLKSZ = 16*ENTLNGTH+8 


30-48 LASTLO, 12 Work areas used by INSRCH and 
| LASTHI, LOCSRCH 
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LASTMD 
ENTLOC 


OUTPUT RECORD CONTAINING SEGMENT PREFIX 


This DSECT 


(IOAREA) defines the format of the unloaded data base 


records used by the HD reorganization unload/reload utilities. 


Hex Dec Name Ln 


Description 
Segment code for this segment 


HSAM delete flag; always X*‘80" 


to denote HD Reorganization Unload 
Utility 


0 0 RGUSEGLV 1 
1 1 RGUHSDF 1 
2 2 RGUHDRLN 2 
4 4 RGUSEGLN 2 
6 6 RGUSEGNM 8 
E 14 RGUSEGDF 1 
F 15 RGUPFCTR 4 
13 19 IOTWFOR 4 
17 23 IOTWBACK 4 
1B 27 IOPAR 4 
1F 31 IOOLD 4 
23 35 IOSEG Var 


OUTPUT TABLE RECORD 


This DSECT (DLZUSTAT) 
within the unloaded data base for 
utilities. 





Hex Dec Name Ln 
0 0 RGUSEGLV 1 
1 1 RGUHSDF 1 
2 2 RGUHDRLN 2 
4 4 RGUSEGLN Var 


Field Description of RGUSEGLN 


Hex Dec Name Ln 
0 0 SEGNAME 8 
8 8 SMIMCHLD 4 

5-200 


Length of header portion of record 
Length of data portion of reccrd 
Segment name 

Delete flag of segment 

Counter field of prefix 

Logical twin forward pointer 
Logical twin backward pointer 
Logical parent pointer 

Old location of record 


Variable-length data field 


defines the format of the statistics takle 


HD reorganization unload/reload 


Description 


Always X‘0O* 
X"80' for first table reccrd and 


checkpoint table record 
X"90° for last table record 
Length 


A table containing one entry for 
each segment type. 


Description 


Segment name 


Maximum immediate children 
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Cc 12 SAIMCHLD 4 Average immediate children 


10 16 WKIMCHLD 4 Working entry for above 

14 20 SMSBCHLD 4 Maximum subordinate children 

18 24 SASBCHLD 4 Average subordinate children 

1c 28 WKSBCHLD 4 Working entry for above 

20 32 TSEGTY PE 4 Total segments for this type 

24 36 SEGLEVEL 1 Segment level 

25 37 SEGPHYCD 1 Segment physical code 

26 38 TABLEND 2 Table end indicator (X‘"80") 

26 38 TSEGLEN 2 Segment length including prefix 
28 40 STATABSZ Length of each takle entry 


SHORT SEGMENT TABLE 


This record is used ky module DLZURULO. 


Hex Dec Name In Description 

0 0 SEGMDSNO 1 Data set number (not used by CLZURULO) 

1 1 SEGMCODE 1 Physical segment code 

2 2 PARSEGCD 1 Physical code of this segment 's parent 

3 3 SEGMLEVL 1 Segment hierarchical level 

4 4 Unnamed 2 Number of logical children and fields 
(not used by DLZURULO) 

6 6 SEGMLENG 2 Segment length, including prefix 


SORTED LIST BLOCK 


This record is used by module DLZUSCHO. 


Hex bec Name Ln Description 
8) 0 ENCNT 1 The count minus one of the current 


number of entries in this block 
(currently, the maximum value for 
count is 16) 


1 1 CHAIN 3 The location of the next sorted list 
block in the chain. In the last 
block, this field contains binary 
zeros. 


4 4 BKCHAIN 4 The location of the preceding sorted 


list block in the chain. In the first 
block on the chain, this field 
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ENTRIES Var 


SSA FOR GU CALL BY KEY 


contains the location of the CHAINLOC. 
field in the list control block. 


Up to 16 full entries in sorted order. 


Note: 


All blocks are the same size 
regardless of the numker of 
entries contained. Unused 
space at the end of a block is 
not zeroed. 


This record is used by module DLZURGUO. 


Hex. 


0 


Dec 
0 
8 

10 


11 


Name 
KEYSEGNM 
KEYCODE 
KLEFTPAR 
KEY 


KRITEPAR 


SSA FOR GU CALL BY RBA 


in 


8 


2 
1 


1-236 


Description 


Name of segment to be retrieved 
"*C* - command code | 
*(" - left parenthesis 

key to be retrieved 


')" - right parenthesis 


This record is used by module DLZURGUO. 


Hex. 


0 


y Ww PY 


Dec 
0 
8 

10 

11 


15 


Name 
RBASEGNM 
RBACODE 
RLEFTPAR 
RBA 


RRITEPAR 


Ln 


8 


Description 

Name of segment to be retrieved 
“*T" -— command code | 
"(" - left weveutheste 

RBA to be Hetrieved 


"“)" -— right parenthesis 


SSA FOR THE XMAINT CALL TO THE ANALYZER 


This record is used by module DLZDXMTO. 


Hex 


0 


Dec 
0 
8 

10 


11 


Name 

XSEGNAME 
XCOMMCOD 
XLEFTPAR 


XKEYVALU 


STATISTICS RECORD 


Ln 


8 
2 
1 


VAR 


Description 

Name of index pointer segment 
“*X" — command code 

*(" - left saventnesia 


Key value followed by right 
parenthesis ‘)" 


This record is used ky modules DLZURULO and DLZURRLO. 


5-202 
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14 


1c 


e 


12 
20 
28 


Name 
Unnamed 
Unnamed 


Unnamed 


Unnamed 
Unnamed 
Unnamed 


Unnamed 


eo fF Ff IB 


ce 


Var 


Description 
X'FF' header/statistics record identifier 


Character S 


Number of segment types in data set 
group (16 bytes per segment type) 


Name of the DMB derived from the DBD 
KSDS filename 
ESDS filename 


A 16-byte table entry for each 
segment type in the data base 


DESCRIPTION OF VARIABLE LENGTH LAST FIELD OF STATISTICS RECORD WHEN 
USED AS OUTPUT FOR DLZURULO. 


Hex Dec 
0 0 
8 8 
Cc 12, 
D 13 
E 14 


Name 
SEGNAME 
TSEGTYPE 
SEGLEV 
SEGPCD 


TSEGLN 


Ln 


Description 

Segment name 

Total number of segments unloaded 
Segment level 

Segment physical code 


Segment length, including prefix 


DESCRIPTION OF VARIABLE LENGTH LAST FIELD OF STATISTICS RECORD WHEN 
USED AS INPUT FOR DLZURRLO. 


Hex. 


0 


me oO A 


WORK FILE 1 


Dec 


0 
8 
12 
13 


14 


Name 
SEGNAME 
TOTSEG 
SEGLEV 
SEGPCD 


SEGLN 


ex 


Nb fF PF 


Description 


Segment name 

Total number of segments unloaded 
Segment level 

Segment physical code 


Segment length, including prefix 


This record is used as the input file for DLZURG10. 


Hex 
0 
2 


Dec 


0 


£ 


Name 
ALENGTH 
ASPACE 


ALTYPE 


Ln 


2 
2 


1 


Description 


Length of work file 1 record 
Two Lytes of zeros 


Type of input record 


Flag Hex 
Name Code Meaning 
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ATYPEOO 00 Type 00 record 


ATYPEO1 01 Type 01 record 
ATYPEO2 02 Type 02 record 
ATYPE03 03 Type 03 record 
ATYPE10 10 Type 10 record 
ATYPE20 20 Type 20 record 
ATYPE30 30 Type 30 record 
ATYPE4O 40 Type 40 record 
DL/I Record 

Type ____Use 

00 Generated once for each 


use of a segment as a 
logical parent 

10 Generated once for each 
use of a segment as a 
logical child. 

20 Generated when a segment 
used as a logical child 
contains logical twin 
forward pointers and when 
the logical twin: chain 
cannot be resolved by 
using the logical child's 
sequence field. 

30 Generated when a segment 
used as a logical child 
contains logical twin 
backward pointers and 
when the logical twin 
chain cannot be resolved 
by using the logical 
child"s sequence field. 

40 Generated once for each 
time a segment is indexed 


oO ALFIAG1 1 Flag 1 


Flag Hex 
Name __Code Meaning 
AL1LOAD 80 Set to 1 if 
ISRT; set to 
0 if ASRT 
AL1SEQ 40 Set to 1 if 
sequence 
field is 
present 
AL1SCAN 20 Set to 1 if 
record 
produced by 
scan program 
(DLZURGSO) 
AL1LPCK 10 Set to 1 if 
logical 
parent 
concatenated 
key is prsent 
AL1SQUN 08 Sequence 
field is 
unique 
ALISEQA 04 Set to 1 if. 
root sequence 
field is 
present — 
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6 6 ALFLAG2 
7 7 ALFLAG3 
8 8 ALEVTTR 
Cc 12 ALPDBNAM 
14 20 ALPSEQ 
15 21 ALPCKEY 
15 21 ALPOADDR 
19 25 ALCDBNAM 
21 33 ALCSEG 


***FOR TYPE 00 AND 01 RECORDS*** 


22 34 ALCFL 

26 38 ALTO001 
27 39 ALPLSGOF 
29 41 ALCCTR 
2D 45 ALPDCB 


(TYPE 01 RECORD ENDS HERE) 


2E 46 ALPSEQA 


***#FOR TYPE 02 RECORDS*** 
22 34 ALCOAD 


26 38 ALTO2 


4 


rm 


1 


ALICONST 02 Constant present 
in key 
For type 40 
record; 
pointer is 
symbolic 
Set to 1 if 
logical twin 
pointers are 


AL1S YMB 01 


AL1T23 01 


to be 
resolved by 
type 20 and 


30 records 


Executable length of sequence 
field, if present 


Executable length of indexed 
field, if present, or executable 
length of logical parent 
concatenated key, if present 
Value of LEVTTR after BYLCT 

Data base of logical parent 
Segment code of logical parent 
Logical parent‘s concatenated key 
Logical parent's old address 


Data base of logical child 


Segment code of logical child 


Old value of logical child first 
or logical child last pointer 


X'00° or X*01" 


Value of logical parent"s LEVSEGOF 
after BYLCT 


Old value of counter field 


DCB NUMBER FOR LP 


Sequence field and length for root 
of segment 


Logical child old address 
X'02" 


***#FOR TYPE 10, 20, AND 30 RECORDS*#** 


22 34 ALFIL 


1 
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X'FF' 
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23 35 ALCSEQ 4 
23 35 ALCM 4 
27 39 ALT123 1 
28 40 ALCDCB 1 
29 41 ALCSEQA 1 


*#*#FOR TYPE 40 RECORDS**¥* 


8 8 AILCOA 4 
Cc 12 AIDBNAM 8 
14 20 AIFLDVAL 1 
14 20 AISsC 1 
15 21 AISEQ 1 
15 21 AISEGN 8 
15 21 AIFLDN 8 
1D 29 AISDBN 8 
25 37 AISSC 1 
26 38 AILCNA 4 
2A 42 AIDATA 1 


*#**#FPOR TYPE 40 RECORD USED AS 


9 9 AISSFN 8 
11 17 AISSAID 3 
14 20 AISFLDV 1 
14 20 AISSEQ 1 


21 33 AXSC 1 


Logical child sequence field 


If LC has LT pointers and a non- 
unique sequence field and is being 
reloaded, ALCM contains the 
following: 

For Type 10 - LC‘'s old address 

For Type 20 - LC's old LT forward 
pointer 

For Type 30 - Lc"s old LT kackward 
pointer 

Otherwise, ALCM contains the value 
of LEVSEGOF, with high order bit 
set to one 


X*10', or X"20", or X*"30" 
DCB number for LC 


Sequence field and length for root 
of segment 


Logical child old address 
Index data base name 


Indexed field value (variable 
length) 


Index segment's segment ccde 


Index segment"s sequence code (if 
second level and present) 


Index segment"s name (For level 2 
index segments) 


Indexed field name (For level 1 
index segments) 


Indexed segment's data base name 
Indexed segment's segment code 
Logical child new address 


Indexed segment data (for source 
fields) 


SSA AND I/O AREA***# 


Index segment name or field name 
SSA ID and command code 


Indexed segment's indexed field 
value (variable length) 


Index segment's sequence field 
value (variable length) 


Segment code of indexed segment 
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22 34 
25 37 
29 41 


WORK FILE 3 


This record is the output file from 


AXDDIR 
AXLCNA 


AXDATA 


file for DLZURGPO. 


Hex Dec 
0 (0) 
2 2 
4 iT} 
5 5 


Name 
CLENGTH 
CSPACE 


CTYPE 


CFLAG1 


i) 


ray 


*#*#PTELDS IN TYPE 0 RECORD*** 


6 6 

E 14 
F 15 
10 16 
14 20 
18 24 
1c 28 


CLCDBNO 
CLCSEGNO 
CLPSEGNO 
CLCFRST 
CLCDLST 
CLCDCNT 


CLPDBNO 


8 
i 
1 
4 
4 


4 


8 


***FTELDS IN TYPE 1 RECORD*** 


DDIR address of indexed data base 


Logical child new address 


Index source data 


DLZURG10 and is used as the input 


Description 


Length of work file record 


Zeros 


Work file record type 


Flag Hex 

Name Code Meaning 

CTYPEO 00 Type 00 record 
CTYPEO1 01 Type 01 record 
CTYPE1 10 Type 10 record 
CTYPE2 20 Type 20 record 
CTYPE3 30 Type 30 record 
CTYPE4 40 Type 40 record 


Origin of record 


Flag Hex 
Name Code Meaning 
CF1LOAD 80 Flag on-initial load; 
Flag off-reorganization 
CF1SCAN 20 Record produced by scan 
CFILPCK 10 Logical parent con- 
catenated key if present 
CFISEQA O04 Set to 1 if root 
sequence field present 
CF1ITOF | 02 Set to 1 if matching 
type 10 record found 
CF1T23 01 Set to 1 if logical 
twin pointer is to 
be resolved by type 
20 and 30 records 
Logical child data base name 
Logical child segment code 
Logical parent segment code 
Logical child first pointer 
Logical child last counter 
Logical child delta counter 
Logical parent data base name 
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10 
14 
18 
1c 
24 
25 
26 


2A 


2c 


30 


5-208 


14 
15 
16 
20 
24 
28 
36 
37 
38 
42 


44 


48 


CLPDBN1 
CLPSEGN1 
CLCSEGN1 
CLTFWD 
CLTBKWD 
CLPNWAD1 
CLCDBN1 
CDCB 
CFIL 
CLEVTTR 


CLEVSGOF 


CLCCNT 


CLSEQ 


Nb fF BP BR 


Logical 
Logical 
Logical 
Logical 
Logical 
Logical 


Logical 


parent data base name 
parent segment code 
child segment code 
twin forward pointer 
twin backward pointer 
parent new address 


child data base name 


DCB number 


Contents of LEVTTR after BYLCT 


Contents of LEVSEGOF after BYLCT 
(high order bit of CLEVSGOF is 
set to 1 if segment is not in HD) 


Old value of counter field 


Root sequence field 
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SECTION 6: DIAGNOSTIC AIDS 


This section contains two tables that cross-reference DL/I messages 
and DL/I status codes with the module(s) that originate then. 


Additional diagnostic information can be found in the DL/I DOS/VS 
Diagnostic Guide, SH24-5002. 
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SYSTEM MESSAGE/MODULE CROSS REFERENCE 


This table cross-references message numbers (in numeric order) with 
the module(s) that can cause that message to be issued. In addition, 
if the message is described in the module HIPO diagram in Section 2, 
the HIPO figure number is also shown. The modules are described in 
Section 3 of this publication. The messages are described in Chapter 
1 of “DL/I DOS/VS Messages and Codes". 


Message | | Figure 
Number | Module | Number 

| | 

I | 
DLZOOOL | #DLZRRGOO i 
DLZ001I | #DLZBNUCO |} 2-4.2 
DLZ002I {|  DLZBNUCO | 2-4.2 
DLZ003I | DLZDDLEO | 
DLZOO4I |  DLZDBHO2 | 

| | DLZRDBLO | 2-16.7 
DLZOOSI | DLZDBHO2 | 
DLZO06I | DLZOLIOO | 2-5.4 
DLZOO7I | §DLZDSEHO i 2-38 

| | DLZDXMTO | ee: 
DLZOO8I | DLZRRCOO | 2-3.9 
DLZOO9I | DLZRRCOO | 2-3.8 
DLZ010A | DLZRRCOO | 

| DLZMP100 | 2-21.1 
DLZ0O111 | DLZRRCOO | 2-3.2 
DLZO12I1 | DLZMPIO0O | 2-21.1 

| DLZRRCOO | 2-3.4, 2-3.7, 2-39 
DLZ0131 | DLZOLIO00O | 2-5.3 
DLZ014A |  DLZRRCOO | 

|  DLZMPIOO | 2-21.1 
DLZO15I |. DLZRRCOO | 2-3.3, 2-3.9 
DLZ0161 | DLZDLOCO | 
DLZ0171 | DLZRRC 00 | 2-3.7 
DLZO18I | DLZRRCOO | 2-3.7 
DLZ019I1 | DLZRRCOO | 2-3.9 
DLZO20I |  DLZDLOCO i 2-14.1 

| DLZRDBLO | 2-16.1 
DLZO21I {| |§DLZDLOCO | 

|  DLZRDBLO |  2-16.6 
DLZO22I | #DLZDLOCO | 
DLZO23I | DLZDLOCO | 2-14.1 
DLZO24I | DLZDLOCO | 
DLZ025I | DLZDLOCO | 2-14.1 
DLZO261 | DLZRRCOO | 2-3.8 
DLZ027I |  DLZDLOCO J 2-24.21 
DLZ028I | | DLZDLOCO | 2-14.12 | 
DLZ029I | DLZOLI00 | 2-5.3, 2-5.9 
DLZ030I |  DLZOLI00 | 2-5.8 
DLZ031iI | DLZOLI00 | 2-5.1 
DLZ032A | DLZOLI00O | 2-5.4 

| DLZRDBL1 i 
DLZ0331 | DLZISc00 | 2-6.15 
DLZO34I |  DLZOLIOO | 2-5.1 
DLZO037I | DLZEIPBO | 2-45.4, 2-46.21 

| | DLZEIPBO | ; 

{ DLZEIPOO | 
DLZ038I | DLZEIPBO | 2-45.4, 2-45.6 

| DLZEIPB1 | 

j DLZMPI00 | 
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Message 
Number 


SE REI CT AE AE te TED rt EE ae A RE I AG OE RD AE Sco RE ine ST em A EE OLN EE TOE ee a 


DLZ03 91 
DLZO40A 
DLZ0411 
DLZ 04 21 
DLZ0431 
DLZ0441 
DLZO4&5I 
DLZ046I 
DLZ047I 
DLZ048I1 
DLZ049I 
DLZ0501 
DLZ0511 
DLZ05 21 
DLZ0531 
DLZ0541I 
DLZ055I1 
DLZ0561 
DLZ0571 
DLZ0581 


DLZ0601 
DLZ061A 
DL20621 
DLZ0631 
DLZ0641L 
DLZ065I1 
DLZ0661 
DLZ0671I 
DLZ068I 
DLZ069I 
DLZ0701 
DLZ0711 
DLZ07 21 
DLZ0731 
DLZ074I 
DLZ075I 
DLZ076A 
DLZ0771 
DLZ0781 
DLZ0791 
DLZ0801 
DLZ0811 
DLZ082I 


DLZ0831 
DLZ0 841 


DLZ085I 
DLZ086I 
DLZ087A 
DLZ088I 
DLZ0891 
DLZ0901 
DLZ091T 
DLZ09 21 
DLZ0931 


ER Ee CED GS GED ESTES ETS age) eens ES ge ae SE Ge CER Que See ee gees eee OS ee oe CS ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ee ee eee ee ee Ce ee ee ene OE ee ones ES OP gee eee 


Module 


DLZRRCO00 
DLZOLI0O 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOL100 
DLZOLI100 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZRRCO0O0 
DLZOLI00 
DLZOLI00 
DLZODP 

DLZODP 

DLZOLI00 
DLZODP 

DLZODP 

DLZODP 

DLZODP 

DLZODP 

DLZODP 

DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZOLI00 
DLZRRCOO 
DLZRDBLO 
DLZRDBLO 
DLZRRCOO 
DLZRDBLO 
DLZMSTPO 
DLZMPI00 
DLZBPCO00 
DLZMPCOO 
DLZMP100 
DLZMSTRO 
DLZBPCO00 
DLZMPCO00O 
DLZMPI00 
DLZMPI00 
DLZMPC00 
DLZMP1I00 
DLZMPI00 
DLZMPIOO 
DLZMPI00 
DLZMPI00 
DLZMPIO00 
DLZMPCO0 


Figure 


Number 


2-3.4 
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2-16. 7 


2-20.5 
2-19.4, 2-19.5, 2-19.77, 2-19.8 
2-21. 3 

2-24.24 


6-3 


Message | 


Number 


SS AS AE EE AS A A SS A ML SD SS NAS SORES <SPAN SSS AR SE 


DLZO94T 
DLZ095I 
DLZ096I 
DLZ0971 
DLZ098TI 
DLZ099I 
DLZ1001 
DLZ1011 
DLZ1021 
DLZ1031 
DLZ1041 


DLZ1051 


DLZ1061 
DLZ1081 
DLZ1201 
DLZ2601 
DLZ2611 
DLZ2621 
DLZ2631 
DLZ2641 
DLZ 2661 
DLZ2671 
DLZ2681 
DLZ280I1 
DLZ2811 


DLZ2821 
DLZ3011 


DL2Z3021 


DLZ3031 


DLZ3 041 


DLZ3051 


DLZ306I 


DLZ3 071 


6-4 


Module 


DLZMPCOO 
DLZMPI0O 
DLZMPI00 
DLZMSTRO 
DLZMPI00 
DLZMPI00 
DLZMPI00 
DLZMSTRO 
DLZMPI00 
DLZBPCOO0 
DLZMPCOO 
DLZBPCOO 
DLZRRCOO 
DLZBNUC 0 
DLZMPI00 
DLZISC00 
DLZQUEFO 
DLZQUEFO 
DLZTRACE 
DLZ BNUCO 
DLZODP 

DLZBNUCO 
DLZODP 

DLZRRCO0O 
DLZOLI00O 
DLZRRCOO 
DLZRDBL1 
DLZRRCO0O0 
DLZOLI00 
DLZQUEFO 
DLZDDLEO 
DLZSTTL 

DLZSTTL 
DLZSTTL 
DLZUDMPO 
DLZURDBO 
DLZURGLO 
DLZURGUO 
DLZURRLO 
DLZUC350 
DLZURULO 
DLZUDMPO 
DLZURULO 
DLZURRLO 
DLZURCCO 
DLZUDMPO 
DLZURULO 
DLZUDMPO 
DLZURULO 
DLZURCC 0 
DLZUDMPO 
DLZURDBO 
DLZURULO 
DLZURULO 


DLZURDBO 


DLZUDMP 0 
DLZURULO 
DLZUDMPO 
DLZURRLO 
DLZURCCO 


Figure 


Number 


2-19.1, 
2-21.1 
2-21.5 
2-18 
2-21.3 
2-21.1 
2-21.3 
2-18 
2-21.3 
2-20.5 
2-19.9 
2-20.6 


2-4.1 


2-6.15 


ee ee ee 
WUWWHNE A & 
ee © 8 © @ 


2-25 
2-29 
2-30 
2-27.41 
2-25 
2-29 
2-25 
2-29 
2-27.21 


2-29 
2-25 
2-30 
2-27.1 


2-19.8 
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Message 
Number 


Module 


Figure 
Number 


a cr te cr ce ee re re ce ce cre ee ee ee ce en ee re ree ee ete re eee ee en ce re ees ee ee eee ee ee ee ee ee ee ee 


DLZ3081 


DLZ3091 


DiZ3101 


DLZ3111 


DLZ3121 
DLZ3131 
DLZ3141 
DLZ3151 


DLZ 3161 


DLZ3171 
DLZ318A 


DLZ3191 


DLZ3201 


DLZ3211 


DLZ3221 
DLZ3231 
DLZ3241 
DLZ3251 
DLZ3 261 
DLZ3271 
DLZ3281 
DLZ3291 
DLZ3301 
DLZ3311 
DLZ33 21 
DLZ3331 
DLZ3341 
DLZ3351 
DLZ3361 
DLZ3371 
DLZ3381 
DLZ3391 
DLZ3401 
DLZ3411 
DLZ3421 


DLZUDMPO 
DLZURULO 
DLZUDMPO 
DLZURULO 
DLZURRLO 
DLZRDBLO 
DLZUDMPO 
DLZURULO 
DLZURRLO 
DLZRDBLO 
DLZURCCO 
DLZURRLO 
DLZURGUO 
DLZURGLO 
DLZLOGPO 
DLZTPRTO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURGUO 
DLZURGLO 
DLZURDBO 
DLZUDMPO 
DLZURDBO 
DLZURGUO 
DLZURGLO 
DLZURULO 
DLZURGUO 
DLZUDMPO 
DLZURGLO 
DLZURDBO 
DLZURRLO 
DLZURULO 
DLZURGUO 
DLZUDMPO 
DLZURULO 
DLZUDMPO 
DLZURRLO 
DLZURDBO 
DLZURDBO 
DLZURDB 0 
DLZURDB 0 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURGUO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZURDBO 
DLZBACKO 
DLZLPCCO 


2-25 
2-29 
2-25 
2-29 
2-30 


2-25 
2-29 
2-30 
2-27.1 


2-31 
2-32 


2-31 
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Message | | Figure 
Number | Module | Number 

| | 

| 

| DLZURCCO | 2-27.1 

i DLZUCCTO | 
DLZ3431 | DLZURDBO | 
DLZ344I | DLZURRLO l 2-30 

| DLZURULO | 
DLZ345I | DLZURGUO | 2-31 

{ | DLZUDMPO | 

| DLZURULO i 
DLZ346I | DLZURGUO | 
DLZ347I | DLZURGUO | 2-31 
DLZ348I | DLZURGUO | 2-31 

| DLZURGLO | 2-32 
DLZ349I | $DLZURGUO | 2-31 
DLZ3501 | DLZUDMPO | 
DL2Z3511 | DLZURGLO | 2-32 
DLZ352I |  DLZURGUO | 2-31 
DL23531 | DLZURRLO | 
DLZ3541 | DLZURGLO | 2-32 
DLZ3551 | DLZURGLO { 2-32 
DLZ356L | §DLZURRLO | 
DLZ3571I | DLZURULO | 

| DLZUDMPO i 
DLZ3581 | DLZURULO | 
DLZ3591I | DLZURGUO | 2-31 
DLZ360I | #DLZUCCTO i 
DLZ361I {| DLZUCCTO i 
DLZ362I | DLZUCCTO I 
DLZ363I | DLZUCCTO i 
DLZ364I [| DLZUCCTO | 
DLZ3651 | DLZUCCTO { 
DLZ366I | DLZUCCTO | 
DLZ367I | DLZUCCTO | 
DLZ368I | DLZURGLO | 2-31 

| | DLZURGUO | 2-32 
DLZ369I | DLZUCCTO { 

| DLZUC1L50 | 
DLZ3701 | DLZURGLO | 2-32 
DLZ3711 | DLZUC150 | 
DLZ372I | DLZURCCO | 2-27.1 

{| | DLZLPCco | 

| | DLZBACKO | 

{| DLzuccTO | 
DLZ3731I | DLZUC350 | 
DLZ374I | DLZUCL50 | 

| DLzZuUCc350 | 
DLZ375I1 | DLZUC350 | 
DLZ376L | DLZURGLO | 2-32 
DLZ3771I | DLZURGUO | 
DLZ3781 | DLZURGUO | 2-31 

| DLZURGLO | 2-32 
DLZ379I | #DLZURGUO | 2-31 

| | DLZURGLO | 2-32 
DLZ380I | DLZURGUO | 2-31 

| DLZURGLO | 2-32 
DLZ3811I | DLZURGUO | 2-31 

| DLZURGLO | 2-32 
DLZ382I | DLZURULO | 
DLZ383I | DLZURULO | 
DLZ384I | DLZUCUMO | 
DLZ385I | DLZUCUMO | 
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Message 
Number 


Module 


Figure 


Number 


ee ee re a ree ne a ee ee eee cee ee ert ee ne ce ee ee ce te ee ee ee ee ee ee ct ee ce ee ce cee ee ee ee oe ee ee ee a ee ee ee ae ee ee ee ee oe ee 


DLZ3861 


DLZ23871 
DLZ389I1 


DLZ3901 


DLZ3911 


DLZ3921 


DLZ3931 
DLZ3941 


DLZ395I 
DLZ3961 
DLZ3971 
DLZ398I 
DLZ399I 
DLZ4001 
DLZ24011 


DLZ4021 


DLZ404TL 


DLZ4 051 


DLZ4 061 


DLZ4 071 


DLZ408I 
DLZ409I1 
DLZ4101 
DLZ4111 
DLZ4121 
DLZ4131 


ee cee cere gee eee ES eee pene SS ceceen mas ges cg ees me me gees ce gs epee ry er eee mes OE ee ees SO Ge ee eee EY Se eee GS ES SE ee ee SE oe eee 


DLZURGUO 
DLZURGLO 
DLZURGLO 
DLZURGLO 
DLZURRLO 
DLZUC1i50 
DLZLOGPO 
DLZUDMPO 
DLZURDBO 
DLZURULO 
DLZURRLO 
DLZBACKO 
DLZLOGPO 
DLZUC150 
DLZUC350 
DLZURPRO 
DLZURGSO 
DLZURG10 
DLZURGPO 
DLZUCCTO 
DLZTPRTO 
DLZURULO 
DLZURGUO 
DLZURRLO 
DLZURRLO 
DLZURRLO 
DLZURDBO 
DLZ BACKO 
DLZRDBCO 
DLZRDBCO 
DLZRDBCO 
DLZRDBCO 
DLZURGUO 
DLZBACKO 
DLZLPCCO 
DLZUCCTO 
DLZBACKO 
DLZURDBO 
DLZUC150 
DLZ BACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 
DLZ BACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 
DLZ BACKO 
DLZLOGPO 
DLZURDBO 
DLZUC150 
DLZLPCCO 
DLZTPRTO 
DLZURCCO 
DLZLPCCO 
DLZLPCCO 
DLZLPCCO 
DLZLPCC 0 
DLZLPCCO 
DLZLPCCO 


2-31 
2-32 


2-32 


2-34 
2-35 
2-36 
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Message 
Number 


ree ee a ae ND A a SS SS SS A SE IS SS <P I A SE SO SE DS ST NT ES SD SN SED EN SERED Se SE 


DLZ414t 


DLZ4151 


DLZ4161I 
DLZ4171 
DLZ4181 
DLZ419T 
DLZ420I 
DLZ4211 
DLZ4221 
DLZ4231 
DLZ4241 
DLZ4251 
DLZ4261 
DLZ4271 
DLZ4 281 
DLZ4291 
DLZ4301 
DLZ4311 
DLZ43 21 
DLZ4331 
DLZ4341 
DLZ4401I 
DLZ441I 
DLZ442t 
DLZ4431 
DLZ444T 
DLZ4451 
DLZ4461 
DLZ4471I 
DLZ44st 
DLZ449T 
DLZ4501I 
DLZ451ilt 
DLZ4521 
DLZ4531 
DLZ4541 
DLZ476L1 


DLZ5701 


DLZ5711 
DLZ5721 


DLZ5731 


DLZ5831 
DLZ584I 
DLZ585I 
DLZ5871 
DLZ588I 
DLZ5891 
DLZ6001 
DLZ602I1 
DLZ6031 
DLZ604I 


DLZ6051I 
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DLZLPCCO 
DLZURCC0 
DLZTPRTO 
DLZLPCCO 
DLZURCCO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLPCCO 
DLZLOGPO 
DLZLOGPO 
DLZLOGPO 
DLZLPCCc 0 
DLZLPCCO 
DLZLPCCO 
DLZLPCC 0 
DLZLPCC 0 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZTPRTO 
DLZDLA 00 
DLZODP 

DLZDLBL3 
DLZUABC 0 
DLZUACBO 
DLZDLBLO 
DLZDLBL1 
DLZDLBLO 
DLZDLBL1 
DLZUACB 0 
DLZUACBO 
DLZUACBO 
DLZUACB 0 
DLZUACB 0 
DLZUACBO 
DLZPRCT2 
DLZPRPAR 
DLZPRPAR 
DLZPRPAR 
DLZPRDBD 
DLZPRPAR 


Figure 
Number 


2-39.1 


2-6.16 


2-33.12 
2733 


2-33 
2-33 
2-33 


2-43.8 
2-43.8 
2-43.8 
2-43.4 
2-43.8 


Message 
Number 


DLZ606I | 


DLZ608I 
DLZ6091 
DLZ6101 
DLZ6111 
DLZ6121 


DLZ6131 
DLZ614I 


DLZ6151 


DLZ6161 
DLZ6171 
DLZ6181 
DLZ6231 
DLZ6271 
DLZ6331 
DLZ6341 
DLZ6351 
DLZ6361 


DLZ639I1 
DLZ6411 
DLZ6421 
DLZ6431 
DLZ6441 
DLZ6451 


DLZ6461 
DLZ6471 
DLZ648I 
DLZ649I1 
DLZ6501 
DLZ6511 
DLZ6521 
DLZ6531 


DLZ655I 
DLZ6591 
DL277 21 
DLZ7961 
DL2Z7971 
DL2Z798I 


DLZ7991 


DLZ800I 
DLZ8011 
DLZ 8021 
DLZ8031 
DLZ8 041 
DLZ8061 


DLZ8071 


Module 


DLZPRPAR 
DLZPRPAR 
DLZPRPAR 
DLZPRPAR 
DLZPRPAR 
DLZPRPAR 
DLZPRDBD 
DLZPRDBD 
DLZPRPAR 
DLZPRDBD 
DLZPRPAR 
DLZPRDBD 
DLZPRABC 
DLZPRDL1 
DLZ PRWFM 
DLZPRDBD 
DLZPRDBD 
DLZPRDBD 
DLZPRABC 
DLZPRPSB 
DLZPRPAR 
DLZPRCT2 
DLZPRCT1 
DLZPRCT2 
DLZPRDLI 
DLZPRCT2 
DLZPRURC 
DLZPRSTW 
DLZPRURC 
DLZPRURC 
DLZPRDBD 
DLZPRURC 
DLZ PRURC 
DLZPRSTC 
DLZPRSTC 
DLZPRSTC 
DLZPRUPD 
DLZPRDLI 
DLZPRDLI 
DLZPRURC 
DLZPRSCC 
DLZPRUPD 
DLZPRDLI 
DLZPRDLI 
DLZPRUPD 
DLZDXMTO 
DLZDLD00 
DLZDDLEO 
DLZDLRGO 
DLZDLRDO 
DLZDLD00 
DLZCPY10 
DLZDLROO 
DLZDLROO 
DLZDLDOO 
DLZDLDOO 
DLZDLDOO 
DLZDLDOO 
DLZCPY10 
DLZDLDOO 


Figure 
Number 


2-43.8 
2-43.8 
2-43.8 
2-43.8 
2-43.8 
2-43.8 
2-43.24 
2-43.4 
2-43.8 
2-43.4 
2-43.8 
2-43.4 
2-43.2 
2-43.14 


2-43.4 
2-43.4 
2-43.4 
2-43-2 
2-43.5 
2-43.8 
2-43-7 
2-43.1 
2-43.7 
2-43.14 
2-43.7 
2-43-12 
2-43.15 
2-43.12 
2-43.12 
2-43.4 
2-43.12 
2-43.12 
2-43-11 
2-43.11 
2-43.11 
2-43.10 
2-43.14 
2-43.14 
2-43.12 
2-43.9 
2-43.10 
2-43.14 
2-43.14 
2-43.10 
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Message 
Number 


DLZ808I 
DLZ8301 


DLZ831I 


DLZ8411I 
DLZ844T 
DLZ8451 
DLZ8471 
DLZ 848I 
DLZ8501 
DLZ855I1 
DLZ860L 


DLZ861T 
DLZ862I1 
DLZ8631 
DLZ 8641 
DLZ868I 
DLZ8881 
DLZ890IL 
DLZ894T 


DLZ900I 
DLZ9011 
DLZ902I 
DLZ9031 
DLZ904I 
DLZ905I 


DLZ9061 
DLZ9071 
DLZ908I 
DLZ909I1 
DLZ9101 


DLZ911T 
DL2Z9121 
DLZ9131 
DLZ9141 
DLZ9151I 
DLZ916I 
DLZ9171 
DLZ9181 
DLZ919T 
DLZ9201 
DLZ9211 
DLZ9 221 
DLZ9231 
DLZ9241 
DLZ925I 
DLZ9 261 


6-10 


Module 


DLZDLDOO 
DLZDHDOO 
DLZGGSPO 
DLZDHDSO 
DLZDCI00 
DLZDBHO0O 
DLZDBH02 
DLZDBHOO 
DLZDBH0O 
DLZDBHO0O 
DLZDDLEO 
DLZDDLEO 
DLZDDLEO 
DLZDXMTO 
DLZDDLEO 
DLZDDLEO 
DLZDDLEO 
DLZDDLEO 
DLZDXMTO 
DLZBACKO 


DLZBACKO 
DLZLOGPO 
DLZURDBO 
DLZUC1i50 


DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZDLBLO 
DLZDLBLO 
DLZDLBL1 
DLZDLBL2 
DLZDLBL3 
DLZUACBO 
DLZUAMBO 
DLZDPSBO 
DLZDLBLO 
DLZDLBL3 
DLZDLBL3 
DLZDLBL2 
DLZDLBLO 
DLZDLBL1 
DLZDLBL2 
DLZDLBL1 
DLZDLBL1 
DLZDLBL2 
DLZDLBL1 
DLZDLBL1 
DLZDLBL1 
DLZDLBL2 
DLZDLBL2 
DLZDLBL1 
DLZDLBLO 
DLZDLBL1 
DLZDLBL1 
DLZDLBL1 
DLZDLBL1 
DLZDLBLO 
DLZDLBL1 


Figure 
Number 


2-13.5 


2-33.9 


2-33 
2-33.12, 
2-33.14 


2-33.13 
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DL29271 
DLZ9281 
DLZ9291 


DLZ93 01 
DLZ9311 
DLZ9321 
DLZ9331 
DLZ9341 
DLZ9351 
DLZ9361 
DLZ9371 
DLZ938I 
DLZ939L 
DLZ940I 
DLZ9411 
DLZ942T 
DLZ9431 
DLZ944I 
DLZ945I1 
DLZ946I 
DLZ29471 
DLZ948I1 
DLZ949T 
DLZ952I1 


DLZ9531 
DLZ9541 


DLZ955I 


DLZ9561 


DLZ9571 
DLZ958I1 
DL29591 


DLZ9601 
DLZ961I1 


DLZ 9621 
DLZ9631 
DLZ9641 
DLZ965I 
DLZ9661 


DLZ9671 
DLZ9681 


DLZDLBL2 
DLZDLBL3 
DLZUAMBO 
DLZDLBL1 
DLZDLBL1 
DLZDLBLO 
DLZDLBL1 


DLZDLBL1 
DLZDLBL1 
DLZDLBL3 
DLZDLBL2 
DLZDLBL2 
DLZDLBL1 
DLZDLBL1 
DLZDLBL2 
DLZDLBL1 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZDLBLO 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZDLBL2 
DLZURPRO 
DLZURGSO 
DLZURGPO 
DLZURPRO 
DLZURGSO 
DLZURG10 
DLZURGPO 
DLZURG10 
DLZURGPO 
DLZURPRO 
DLZURGSO 
DLZURGPO 
DLZURGSO 
DLZURG10 
DLZURGSO 
DLZURGPO 
DLZURGSO 
DLZURGPO 
DLZURGPO 
DLZURPRO 
DLZURGSO 
DLZURG10 
DLZURPRO 
DLZURPRO 
DLZURPRO 
DLZURPRO 
DLZURPRO 
DLZURGSO 
DLZURG10 
DLZURGPO 
DLZURGSO 
DLZURGSO 
DLZURPRO 


Figure 
Number 


2-33.12, 


2-35 


2-34 
2-35 
2-36 


2-36.2, 


2-34 
2-35 


2-35 
2-36 
2-35 
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Message 
Number 
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DLZ9691 
DLZ970I 
DLZ9711 
DLZ972I 
DLZ9731 
DLZ2974I 
DLZ975I 
DLZ9761 
DLZ9771 
DLZ978I 
DLZ9791 
DLZ9801 
DLZ981il 
DLZ98 21 


DLZ98 31 
DLZ984I1 


DLZ985I 
DL2989I 
DLZ9901 


DLZ9911 


6-12 


Module 


DLZURG1O 
DLZURGPO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURGSO 
DLZURPRO 
DLZURGLO 
DLZURG10 
DLZURG1O 
DLZURG10 
DLZURG1O 
DLZURG10 
DLZURGPO 
DLZURGPO 
DLZURPRO 
DLZURGPO 
DLZURGSO 
DLZURG10 
DLZURPRO 
DLZURG10 
DLZURGSO 
DLZURGPO 
DLZURG10 
DLZURPRO 


Figure 
Number 


2-36 


2-35 
2-35 
2730 


2-35 
2-34 
2-36.2 
2-36.2 
2-36.2 
2-36.2, 
2-36.4 
2-36 


2-36.4 
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DL/I STATUS CODES/MODULE CROSS REFERENCE 


This table cross-references DL/I status codes (in alphabetic order) 
with the module(s) that can cause that status code to be set. The 


modules are described in Section 3 of this publication. 


The status 


codes are described in DL/I DOS/VS Messages and Codes. 


Status Code 


Module 


AB 
AC 
| aD 
AH 
AI 
AJ 
| AK 
AM 
AO 
I ba 
DJ 
DX 
GA 
GB 


ee ND OO meen emery SNS SO eee apenas SUNTS BOEEOS epee eens SPAS OE ees eae SS A pee Gea SS SD geet nena SD ORS gees emcee SS EE eee Ge A RS Ae NS ces ee OE Se eee ees ES ee ee SS 


DLZDLA0O 
DLZDLA00 
DLZDLAOO, 
DLZDLAOO 
DLZDLAO0O, 
DLZDLA0O0 
DLZDLAO00, 
DLZDLAOO, 
DLZDLDOO, 
DLZDLD0O 
DLZDLA00 
DLZDLDDO 
DLZDLRCO0 
DLZDLRAO, 
DLZDLRAO, 
DLZDLRCO 
DLZDLRAO 
DLZDLRDO, 
DLZDDLEO 
DLZCPY10 
DLZCPY1i0 
DLZCPY10 
DLZCPY10 
DLZCPY10 
DLZDLAOO, 
DLZDLAOO 
DLZDLA0O 
DLZDLA0O 
DLZDXMTO 
DLZDXMTO 
DLZDXMTO 
DLZDXMTO 
DLZDLDOO 
DLZEIPOO 
DLZEIPOO 
DLZEIPOO 
DLZEIPOO 
DLZEIPOO 
DLZEI POO 
DLZEIPOO 
DLZEIPBO, 
DLZEIPOO 
DLZEI POO 
DLZEIPO0 
DLZEIPB1, 
DLZEIPB1, 
DLZEIPB1, 
DLZDLAOO 
DLZEIPB1, 


DLZISCOO 
DLZDLDOO 
DLZDLRDO, 


DLZDLDOO 
DLZDLROO, 


DLZDLRFO 
DLZDLRCO, 


DLZDLRFO, 


DLZDDLEO 


DLZEIPOO 


DLZEIPOO 
DLZEIPOO 
DLZEIPOO 


DLZEI POO 


DLZDLREO 


DLZDDLEO, DLZCPY10 


DLZDLRDO, DLZDLREO 


DLZDDLEO 
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Status Code Module 
| 


AO a AEE cee SOR cm eS ED ee cate ste a Sh ie a ten tr Aa) “OAS a re ck eS im SEL my a SE i a SE pe Oe an a EE eh a EE ES EE a ce te ce ee ree ree cee A ra eo wea ay 


| 
v3 | DLZEIPB1, DLZEIPOO 
v4 | DLZEIPB1, DLZEIPOO 
V5 |  DLZEIPB1, DLZEIPOO 
XD | DLZDLAO1 
XH | DLZDLAOO 
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SECTION 7: AEPPENDIXES 


This section consists of the following appendixes: | 
Appendix A: Low-Level Code/Continuity Checking in DI/I. 
Appendix B: DBD Generation. 

Appendix C: PSB Generation. 


Appendix D: DL/I Macros 


‘Licensed Material - Property. of IBM -7-1 


APPENDIX A: LOW-LEVEL CODE/CONTINUITY CHECK IN DI/I 


FLOW OF CONTROL 


Low Level Code/Continuity Check (LLC/CC) in DL/I is used as a 
subroutine of a user-written application program that runs under 
DOS/VS. Control passes to and from the subroutine using standard 
calls. 


LLC/CC in DL/I is a single control section (CSECT) which is structured 
into seven modules (see Figure 7-1). The entry modules 000 fcr update 
and 001 for initial generation of low-level codes have nultiple entry 
points for call statements issued by the user-written application 
program, that is, a separate entry point for each source language that 
is supported. Ail modules have only a single exit point, all lower 
level modules 002 through 006 are only entered at one point. 


All modules assemble and issue DL/I calls. The entry foint for DL/I 
depends on the source language that is identified by the entry point 
into LLC/CC in DL/I. The language bits in the LIC/CC execution 
control block (LECB) identify the source language of the application 
program. If an unexpected status code of DL/I is reported in the 
appropriate PCB, the error bits in the LECB are turned on, and control 
is routed back directly to the entry modules 000 or 001. 


LLC/CC in DL/I consists of the following modules: 


e Module 000 is the entry module for maintenance of low level codes. 
It passes control to module 002 for execution. 


e Module 001 is the entry module for initial generation of low level 
codes. It passes control to module 002 for execution. 


e Module 002 is the common mainline control module. It follows down 
a hierarchical path of a product structure. For actual explosion, 
control is passed to module 003. If a particular hierarchical path 
is exhausted, module 004 is executed to process a parallel path on 
the same hierarchical level. If all parts on the same level are 
processed, module 005 steps up one level to identify a parallel 
path on the higher level. If the original starting level is 
reached, the complete structure is processed, and control is 
returned to module 000 or 001. Module 002 also detects loops and 
executes continuity check recovery in module 006. 


e Module 003 explodes a particular part into all its ccmponents. 
Control is passed from and to module 002. 


e Module 004 removes the part which has previously been processed 
from the hierarchical path thus opening a new hierarchical path via 
the next parent part on the same level. Control is passed from and 
to module 002. 


e Module 005 steps up one level and removes the higher level part 
from the hierarchical path to open another path. Control is passed 
from and to module 002. If module 002 is not able to follow a new 
path on this level, module 005 may be executed repetitively. 


e Module 006 handles restoring of old low-level codes if a continuity 
check is detected. Control is passed to and from module 002. 
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For a more detailed description, see the relevent HIPO charts at the 
end of Appendix A. 


Entry points Entry points 

DLZNNCA 000 DLZNNGA 001 

DLZNNCC ’ Maintenance of DLZNNGC Initial! Generation of 
DLZNNCP Low Level Codes DLZNNGP Low Level Codes 





002 
Vertical Explosion 
Control 


003 004 005 006 
Explosion of a Part Next parent on Next parent on Continuity Error 
same level higher level Handler 





Figure 7-1 Structure of LLC/CC in DL/I 


MODIFICATION AIDS 
EXTERNAL NAMES 


LLC/CC in DL/I uses external names in the directories and libraries of 
DOS/VS. The following table presents a list of all external names 
which are used. The user should obtain a DSERV listing to avoid 
duplicate names. 


| Type of program | | | Directory |Entry CIL 
| 


| A. books [E. books jentries |points | 
mmm a aa er ee eee ene 
| Execution program |DLZNN |DLZNN | DLZNN* | DLZNNCA* 
| ]CLZNNCC# 
| DLZ NNC P+ 
| DLZNNEC* 
| CLZNNGA + 
| CLZ NNGC* 
| DLZ NNGP+ | 


{Initialization 
| program for the | 
|control data base | | | 


a ee ae ce ce cr ce ce ce ae ce a a ee en ee oe ae a ae a ae ne eae a a ce ce a a a eS a ewer OO OO a Oe SE Se 


DLZNNICT 


l 
| 
| 
| 
| DLZNNICT 
| 


ee net Cpe ee 


* May be modified by the user during customization. 
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LLC/CC EXECUTION CONTROL BLOCK (LECB) 


The LECB of LLC/CC in DL/I is the focal point for all information 
related to actual operation of the execution program. It consists of 
16 bytes which are subdivided into 4 fullwords. An entry foint 
DLZNNEC is provided so that an application program may access the 
contents of the LECB. 


The LECB contains the following information: 


ds 


7-4 


Identification portion (fullword 0): 

Bytes 0 through 3: C* LECB"=X" D3C5C3C2' 

This identifier facilitates location of the LECB in a main storage 
dump. 


Execution control portion (fullword 1): 
Byte 4: 


e Bits 0 through 3: Run type bits 
Bit 0 and bit 1: Reserved 
Bit 2: 1 if IG run 
Bit 3: 1 if U run 


e Bits 4 through 7: Not used 
Byte 5: 


° Bits 0 through 3: Language bits 
Bit 0: Reserved 
Bit 1: 1 if Assembler 
Bit 2: 1 if COBOL 
Bit 3: 1 if PL/I 


e Bits 4 through 7: Not used 
Byte 6: Status byte 


e Bits 0 through 3: Completion bits (mutually exclusive) 
Bit 0: i if not completed, abknormal condition 
encountered 
Bit 1: 1 if component reguires no change (U run only) 
Bit 2: 1 if part is already processed (IG run only) 
Bit 3: 1 if part has no components 
(IG run only, and only if bit 2 is off) 


Besides its function as an indicator, bit 3 also 
serves to transfer information whether a parti- 
cular part in an explosion seque@mce has component 
parts. Bit 3 is turned off in module 002 before 
entering module 003. If no comronent parts 

are found during the execution of module 003, 

the bit is turned on. Upon return to module 

002, the bit is tested to decide whether 

module 004 must be called. 


e Bits 4 through 7: Error bits, extending completion bit 0. 
A single error bit does not reflect a particular error 
condition, therefore, the hexadecimal representation of 
-the total bit pattern in the status byte has to be analyzed. 


x*80°* Parent part not found 

X*81" Component part not found (U run only) 
X"84" Continuity check for parent part 

x‘85"* Continuity check for any component part 
X* 87° Input parameter in error 
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x*88"* Unexpected DL/I status code for parts data base 
X*8aA' Unexpected DL/I status ccde for control data base 
x"sc* Both error conditions X'84" and X"*88° 

X* 8D" Both error conditions X*85'" and X'88" 

X*8E* Both error conditions X*84" and X"8A* 

X‘8F* Both error conditions X*85" and X* 8A" 


Byte 7: Not used 
3. Parameter list portion (fullword 2): 


Bytes 8 through 11: Address constant pointing to the parameter 
list which has been previously submitted to DL/I by LLC/CC in 
DL/I. Contents is defined hexadecimal zeros prior to the first 
run through LLC/CC in DI/I. The address constant is not affected 
ky insertion of locators if the application program is written in 
PL/I. 


4. FCB save area portion (fullword 3): 


Bytes 12 through 15: Address constant pointing to a 64—-byte save 
area for a PCB. This save area is initialized to blanks (X"40"), 
however, in case of an unexpected DL/I status code, the related 
PCB is saved into this save area. The PCB is stored left 
justified. If the length of the PCB exceeds 64 bytes, the 
exceeding data is truncated. 


The contents of the status Lytes is externally represented by the 
return codes of LLC/CC in DL/I. 


IG stands for “initial generation of low level codes", U stands for 
"update of low level codes". 


The LECB is located at the very end of the code of LLC/CC in DL/I. 
Therefore, the last byte of LLC/CC in DL/I may be addressed 
DLZNNEC+15. 


LANGUAGE CONSIDERATIONS 


During PSB generation, the source language of applicaticn prograns 
using DL/I facilities is defined in the PSBGEN statements. While 
COBOL is handled like Assembler, the PCE has a different layout if 
PL/I is specified. Therefore, LLC/CC in DL/I has to use different 
entry points into DL/I depending on the source language of the 
invoking user-written application progran. 


The entry routines of the execution program of LLC/CC in DL/I offer 
different entry points. The x identifies initial generation mode (G) 
or update mode (C). Six different entry points are availakle for 
transfer of control: 


e DLZNNxA and DLZNNxC are the entry points for application prograns 
written in Assembler or COBOL, respectively. No special processing 
is required. 


e DLZNNxP are the entry points for application programs written in 
the PL/I Optimizer language. Upon entry, the address constants in 
the parameter list pointing to the locators of the parameters 
transmitted are replaced by the addresses which are stored in the 
respective locators. 
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For each source language, the appropriate language bit in the LLC/CC 
execution control block (LECB) is set upon entry. 


When a DL/I call is issued, the language bits are tested to specify 
the right entry point in DL/I: ASMTDLI, CBLTDLI, or PLITDLI. If the 
source language is PL/I, the parameter list is encoded to transfer 
address constants pointing to locators rather than pointing directly 
to the parameters. 


SAVE AREAS 


LLc/CcC in DL/I contains a set of save areas which facilitate tracing 
main storage dumps. The most important save areas are: 


e Standard save area, addressed by register 13. Symkolic name is 
SAVE. 


e Return addresses for sukroutines, that is, contents of register 14. 
Symbolic names are CALLSV, PARMJUSV, INSRSAVE, SETUPSV, MOO02SV 
through MOQQ6SV. Save areas MOO2SV through MOO6SV are reset to 
hexadecimal zeros when the respective modules M002 through M006 are 
left again. 


e Save area for the contents of register 1 when entering LLC/CC in 
DL/I, that is, address of the parameter list submitted fron the 
application program. Symbolic name is R1SAVE. 


e Save area for the leftmost 240 bytes of a PCB if an unexpected DL/I 


status code is encountered. Symbolic name is PCBSAVE. The address 
of PCBSAVE is also available in fullword 3 of the LECB. 


REGISTER USAGE 


RO: Work register 

R1: Work register, address of parameter 
lists during parameter transfer 

R2: Address of parameter list when preparing 
parameter transfer 

R53: Work register 

R62: Address of PCB for parts data base 

R73 Address of PCB for control data Lase 

R8: Base register 

R9: Second kase register 

R12: Reserved 

R13: Address of register save area 

R14: Standard return address 

R15: Standard linkage register 


HIPO DIAGRAMS FOR LLC/CC 


The following HIPO diagrams describe the seven modules (000-006) of 
LLC. 
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application program via CALL. 
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fara when nniy| [59 The part is tested whether 
i, A \ = H "Gt has component parts. ‘If 
| “| | | no components are found, { 
\ / | | cotitrol is passed tc step | 
foe rae. : 9. 
PARTS DB | | ; 
‘ 
| | {05} Insert root segment LLCTL -------~-——-—-~\ —_—_—. 
| a) i DN I GS tat en Sa ha ke er tt —/ 7 N 
{ with key = xX to start the iz ‘ } 
. a) | N 4 
' ' control data base. H oS 
. ; | \ / 
| {ra Ingert a sequent PARTBEX® -—---~-———— | eae ‘< 
i i : a eed CONTROL DB 
! { * with key composed of t 
t | packed zeros, i.e., actual | 
\ | LLC plus part key. 
' | { 
| | | 
| | | 
1 | 
| 
{ 
i | 
eee eee be eh ee ee ol Bete tk Sea a 
HIPOMAT 1.17 Diagram - 3.1.2-01 


Notes 








The calling application’ program 
has three entry points for 
COBOL or PL/I. A 
Parameter list consisting of 5 


Assembler, 


pointers identifies 5 fields, 3 
of thea containing input data, 2 
of them expecting out put data. 


e \ 


A bit is set in the LECB to 
indicate that no component part 
exists. 





























ices (cea eee Cee 
. eke 

Bent 

mae. 
oe | 

oe | 
oe 

na 

feo 

cane 
Lites td 





HEPOMAT %.1 Diagram -.3.1.2-01 


Licensed Material. - Property of IBM 7-9 


Input , Processing Output 


er nr eee 


| 





| 
| 
| 
| 


1[07} Pxecute LLC/CC in DL/I. | 
band \ poe en 
< feef >3002 
Ness (rose 


VERTICAL EXPLOSION 
TROL | 


{08} Remove all control one = Fh 
intorpation from the 

‘control data base by 

‘deleting the root seguent 

“LLCTL with key = x 





CONTROL DB 


: F ourput 
Set up return inforsation.~-—-——-—--——--——-—'\ ~ 


steseta oeatneetetnamened RET.-CODE 
Return to calling Me we enmecnee 
. : LOOP KEY. 
application pxograa. messed 


ae aa an ce a a an a ee a ee ee ee ee 
Ne a ee ce cr ae a a cE es a fn a ge i Sc “ree nS sp cp rea 


mmm en rc sr ce a a nr cr ig ee cs Oe ee i ee ee er ee 
reo" 
oS 
oe 

















001 - INITIAL GENERATION OF 1OW - LEVFL CODES HIPOMAT 1.1 Diagcaa - 3.1.2-02 
c ee a Ek Se ee ee ee ee A pare eae a ne ee me re ae er ee et ET A fe SF SS NS Se 
| Notes | Routine| Label | Ref [fetes Routine/ Latel Ref 
j--o= Cacao eee eee Sead a ip aoa Caanaaeaae! ee a ea ae 
| {09} Return information is obtained | pues | it 
| ~ from the status bits of the LECB | | : ; : 
! and from the internal loop key 1 j 
| field. | | | . 
1 
| i | } 
i. 1 | 
re) 
| a 
i | 
| } | | 
{ 1 1 
; | | | 
ae ee 
| 
| 
{ 
' | 
| yl | 7 | 
! { 
! | 1 
! 
t ; : 
i} 
| 
( 
1 
| 
i] : 
J 
| 
{ % 
! 
a ee ne rensr sioe ce ttemsrfn sore ere as eran eee an wes enters e-em mune arem See ttn mn 8 ean coranerne 
001 - INITIAL GENERATION OF LO# - LEVEL CONES HEPOAAT 1.1 Diagras - 3.%.2-02 


7-10 Licensed Material - Property of IPM 





LLC 
eo ng a pee aed s 
ACTUAL -—— oa 


{TwITIAL || | 


=} 


/ \---- 
N 7 
eee 1 

\ / 
CONTROL DB 


Mae are eee ne 
002 ~ VERTICAL EXPLOSION CONTROL 








= 
1 Notes Routine 
|-~--—. 


1{o1} vertical explosion Control is 
perforaed by means of PARTBEXP 























seqaents, Bach time a new 
cosponent Part is encountered 
with a low-level code which 
needs replacement, a PARTBEXP 
seqment - key LLC + part key - 


is created. When qoing down a 


product-structure tree, this 
step of LLCAC in DL/I 
identifies a new component part 
to become a parent part within 
the recursive process of 
explosion. Explosion proceeds on 
a PIPO basis. 


io 
{v 


Puring previous explosions, 
component part was found 
requiring the replacement of its 
current loy-level code, or no 
component part was found at all. 
Therefore, no seqmsent PARTBEXP 
was inserted. 


no 


ol 


The initial low-level code was 
established either in saodule 000 
or in godule 001, resp. 


: 


a ane SO a es ce ce a ee ae PR gee ws a a SO wa SP ms OE Pt SD ED wn oD Pegs a 


[ amen eene acemmapennecn mts acunemmaeeeteamanamenan musi nemo 
002 - VERTICAL EXPLOSION CONTROL 


° 
3 


CHART: CLZ0N 
PAGE 10PF 3 


Processing 


‘can eee eerie ae 
| 


Output 





{07} The actual low-level ccde 
is used to identify the 
next part to be frocessed. 
A seqment PARTBEXP is read 
with key equal or greater 
to LLC plus hex zeres. 


If no segment PARTBEXP is 
found , the actual LLC is 
exhausted. Control is 
passed to module C05. 


{02} 


<r »>f fos 4 
tai PARENT ON 
HIGHER LEVEL. 


VE 
i 3 ae 





{03] Upon return froa 005, the 
actual LLC is tested. If 
it is higher than the 
initial LLC, control is 
passed to step 1, else 
processing is completed 
and control is fassed to 
step 8. 


| 
| 
re 
fe 
| 
| 
| 


a ee en a ne ae a a a ae. 


HIPORAT T 1 Diagram - 3.%.3-01 


HIPOMAT 1.1 MAT 1.1 Diagras | - 230773-5 3-01 





Routine | Latel 








Licensed Material - Property of IBM 7-11 


Input 


as a a a ee a a a a a ee ee ee a 


er 
| 





002 - VERTICAL 


PARTBEXP. 


i i A ye ce i a a i a ee ee ee 


[ 
| 
| 
| 


002 


7-12 





ee ers 





[06] The continuity check is 
perforned using the sequent type 


is becoming exploded, a seqment 
is inserted which only consists 
of the part key preceded by 2 
bytes hexa zeros. If a part 
occurs tvice in a particular 
hierarchical path, DL/I will 
reject the request for insertion 
because a seqment with same key 
is already existing. 
DL/I tests this condition and 
siqnals continuity check. 
Insertion is processed here. 
However if in updating mode, 
LLC/CC in DL/I inserts’ a 
PARTBEXP sequent of this type 
for the part identified by PARMN3 
already in 000, step 5. 


- VERTICAL EXPLOSION CONTROL 


Processing 


If a segnent is founa, 
read the root seqnent of 
the part. : 


Increment the actual LLC 
by 1 to post into the 
components of the new 
part. 


Perfors continuity check 
If the 
restore old 


and go to step 9. 
check: fails, 
LLC status in 006. 





Jed. pees acces 
<I *+1, >foo6 
v4 TERROR RECOVERY 
HAND LEB L 
| 3.1.3.4 


[07] Upon return from 006, 
control is passed tc step 
12. 


a ee cc er er ae te an ec cg a NS ce ee STO 


[ee 


EXPLOSION CONTROL 





|partRExP 





Each tiage a new part 


LLC/scc in 


ss eh cn Sec ep a aa i hu i pnb an i pe ea eens 


| 
| 
| 
tt 


Licensed Material - Property of IEM 











HIPOMAT 1.1 Diagram - 3.1.3-02_ 


PART 


[actuaL | 


LLC 


pew] 


/ 

iN | 
J +------ “| 
\ / 
CONTROL DB 


OUTEUT DATA 


LOOP KRY 


| ERROR INFO 











i 


HIPOMAT 1.1 Diagras- ° 


3.1.3-02° 


Input 


cn tne a a ca a Fe eer te cae ee er Si PE EE ct cae OO en SR Se en cs AO en ey Sy OT es NS A te 


Aa oe a mn Rh MO AE REO ree TO 
002 - VERTICAL FXPLOSICN CONTROL 





| 


= 
| @ 
+ 
@ 
# 


A 


9{ A switch in the LPCB is used to 
transfer information whether a 
part has cosponent parts. The 
svuitch is turned off before 
entering 003, i.e., it is 
assused that the part has 
components. Upon return fros 
003, the status of this svitch 
is tested. If the svitch is on, 
003 has indicated that the part 
does not have coaponents. 


(3} 


a a ay Ne ED SO Tn cy EY cn Dp Py en SE gs Ms SP A DS A NE YT oe 


002 - VERTICAL EXPLOSIO® CONTROL 








re ee in an ete a oe ee art as ve 








CHART: CLZM 
PAGE 3 0F 3 


eee rn cae ate a en 


Processing Out put 


——. oe ee na memes a 





foe If the continuity check 
did not indicate a loop, 
the actual part will be 
exploded into its 
Coapcnent pacts. 





een y 


J ‘tee ‘; 003 
AEE ad EXPLOSION OF A 
(3616361 
| 








{09} [09] upon return from 003, a 
test is made to detect 
whether the actual fart 
has had component parts at 
all. If components vere 
found, control is passed 
back tc step 1. 


4 4 i " 
[19] Flse, 004 is employed 


Oned\- poeeteetecediccel ls. 
ae. >joos = 
c—1/ Vert PARENT ON 
SAME LEVEL 





jou turn to st 1. 
ny pon re « qo ep 


{72} Go back to higher level 
Rodule 000 or 001 


it 
| 
leg 





Fe RO ee ee ae ee 


~HIPOMAT 1.1 Diagram - 3.1.3-03 


Label Ref Latel 


ar ~—HEPORAT 1.1 T Diagran” >3.9.3-03 








LECRSNOC 





Tl 
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PAGE 1 OF 

Input Processing Output 
a ROR tc A eal RE aT LIAS a ee an eS ORS eA rte ee yore ra ce rea a haere an camara eile: 
‘ | i | 
| ! 
\ | | 
{ ] 
| | | 
1 sete - 1 Read the first or next 
{ 7 \ | 
{ H ) | | component segment of the 
' ie Patt lace A \ actual part. If not found, | | 
' \ / | processing is completed 
| . : 
I eae 1 ( and control is passed to 
| PARTS DB | ! 
! 1 i] step 6. 
| | | 
LLC { \ ; 
| ner -—-—---—----5 | [02] Compare actual LEC and LLC : 
' ACTUAL Misr See st 
t a | in the component. If the . 
t | actual LLC is net higher, 
| H | no further processing is | 
{ H | required and control] is \ 
! 
] | passed back to step 1. | 
| i 
! | | 
1 i lfos Save the old LLC of the  ---------—---1\ (ae 5 
{ I jt— . wate en / / N 
| H | component in an UFDMASTR } H } 
t | | XN /\ 
H t | seqment. Za “/| 
' { 
| ! | \ / 
J | i ence * 
| i | 
| | | CONTROL DB 

] —_——- 
i { {roa} Replace the old LLC of the---- —-—1\, —--. 
| ' | c=— = tetmenenen EA / \ 
] { { component by the actual | | H ) 
] 1 N 4 
I | i LLC. | of. 
| | ae, 
| { | | | irs 
I | I j PARTS DB 
' ] | ‘ 
] } { ; 
t | | a: 
\ | 
| | | | | | 
| | | | 
| | { 
| | | | 
| ! 
1 i i | 
(a ae a ee Be cise eae ey . eager Ba Ea 
003 - FXPLOSION OF A PART HEPOMAT 1.1 Diagram - 3.1.3.1-01 
fe Re, gg a” eee en a cad, ihe ee ee entree hae wipes | 
{ Notes HOUSTney Label | Ref {] Notes Routine| Lakel Ref | 
] 
| 4.85 5-85 Se6 eS Se Sevens See eeneri enetaan) | | Meemesuerer ere teen nretee em eraneeeee o ao a 
leon | 4 i 3) ! 
not If the no-component-f ound PECRNOS {4 | 
| LECBSNOC condition was raised H ! i] | 
! when retrieving the first \ \ | i 
} seqment, a Switch indicates to \ ! | 1 . 
| 002 that the actual part does H ‘ i il ‘ 
\ not have any component parts at | | | i | 
! all and another part has to he | 1 | 
| selected for explosion. | { Ht | | | 
( \ ! | It | 
1 ] | | | 
| | | | 1] | 
a ae | | 
| | | | { | 
| 1 { i} 
1 | | | V1 
] | | {| 
{ | | \ { 
i { | i] | 
{ | { | i] 
| | | 
\ ] 
i i | ' 
{ | | | 
{| 
oe oe 
ee |r ee 
| | H | 
| { 
I | 
I | 
| a an || 
! | 1 1 
| | | ! i ! 
| i | 
| | { 
{ | | 
e os ab 
| a ae oe) 
! | i I 
t | ! if 
| | \ 
| 
\ ! 
u pe ee tt a ae ee el ae ee oe 
003 ~ EXPLOSION OF A PART HIPOMAT 1.1 Diagram - 3.1.3.1-07 
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t ~ ve) 1 { | i 
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i ew oe ' H | | 
| <“_ Om ° } ! 
| zoe a ee, 
I om O oe t 1 0 { 
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| g32. 8 fo 1 8 | | 
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vraag 8 
Vv ° ao | (ae oe ee a EO een De men ee ane eee 
oh = | | 
o @e a 4 | ry | 
H epee Or 0 1 |e 
ha & Vv oO i} 
| ona a. a { | SSP ae or 
S23 53 eh ee ee 
t end OF mw ° | { | 
| Hs oe ow ro) | | re | 
a { o 
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z [=] | < | | 
| SIR LA nS OE Ra Oe ee she 
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| 
ot 
io ' 
a | 
SA ee 
| 
i | 
ge ah lt oe ee lags ie ee ee aa ha aes | 
i “7 
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H ' | 
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\ \ 
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| le | 
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I< | i < 
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| | le 
| { \ 10 
ite 4) | 
| S| is 
an | 8 
| ° | 10 
Ca eee FE 
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: {mo 
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| Ip 1 2 | I: 
a iat ces Sealy at Rs ee ee eee ees Wes oo its a Be eh fs 1s 
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CHART: CLZNN 
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Input precessing Output 


pa i as aetna — = r —o —— ----— ee 
! 
| 
i 
PART I ——; 
(ag rr nN [ 1j Remove the actual part 
{ACTOAL { -—_—--—--——~--1/ | $4 





form the hierarchical 


ae | 


path. 


{02} Delete seqment PARTBEXP 
with key composed of hex 
zeros and the key of the 
actual part. 


[oa] Decrement actual LLC by 1.--—-~+—~--~—--- IN 


a wanna nena / 


Remove the first segment 


\ 
. 
q 
i 
i 
[1 
1 
1 | 
tt} 
1] 
(| 
11 
iz 
| 
ake 
wae ee a A NZ 
acaba eae ava as ea 
tot 
Le} 


| 
; | 
\ Hy ' PARTEFXP with key = actual 
J ------- “744 | LLC #¢ hex zeros since it 
\ / | has teen completely 
Brae i t exploded. 
CONTROL DB 
| [05 Return to module 002. H 
{ Lead 
| | 
| 
! 
I 
| 
| 
' 
t { 
| | 
{ i] 
{ 
i 
| 
| 
\ { 
| 
a} Pt heel eee Se eee eee 


O04 - NFXT PARENT ON SANE LEVEL 


a a nn a a a ny 


Notes | pected Label Ref I Notes | Routine| Latel Ref 








oS : 3 
fo2] A part may occur oultiple times 
a 


ae a oe ae 


within a product~structure tree. 
However, it must not pccur twice 
within a hierarchical path. 
Therefore, if a hierarchical 
path is left or is modified, all 
PARTREXP seqments for continuity 
check related to branches which 
have become obsolete will be 
ternoved. 


| 

| 

{ 

| 

{ 

| 

c . : \ 
{out When returning to step ? in H 
~~ podule 002, the next part on the | 

same level will be read. Step 3 H 

in 008 neutralizes step 4 in | 

002. 
| 

! 

{ 

| 

| 


| 


pee re cee ey ee en a re ne a et SE Sh Ps nS 


ee eg a a Pe ag a ec Ss Se ee Ps A ee Ee Ee ce SS ay Pe eS yO 


| | 
L | 
f 
| 
- 
a 
f | 
| 
| 

| 
As 





ey eet nh ed ante ne NN ar 
00% - NEXT PARENT OW SAME LEVEL 
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2 PAGE 1 OF 
Input Precessing Output 
Aa ee Eee ae oe) ne era et ee ee ee ee a Oe ee ee 
| | | 
| | 
| | | | 
t | 1 
I LLC | Iemma { LLC 
| eon 9 ---- --- - NE} 01] Decrement the actual LLC -----~~-----~- Nf r---------— 
{ {ACTUAL ban a nn em 4 / | ACTUAL 
i Liecerteererestiomanl H { by 1. | pie a ee areas 
{ | | 1 
! 1 { | i 
! 
| Pema ek 1 1 {02} Nelete the first seqment +\ [rant ney | 
« re if | PARTBEXP identified ty a mrs t--————_-. 
| | wccobi -/| \ if ‘ key composed of the actual 
‘ \ / | | | LLC and of hex zeros. 
\ rma “tds { 
{ CONTROL DB} jI ! 
in | 
| LLC i u | | 
1 factuat 1-—-—/ \ 
| | Seeenspee es | 1 | ! 
1 i t ! 
| | | 
, ay a= p-a------ 15 11031 Delete the seqment | 
‘ AC as Pee er wes 
i « al if a PARTBEXP identified ty a} j 
! 
| |) Sues ee A \ lt | key composed of hex zeros | | 
| \ 7 } \! | and the part key retrieved | | 
a od m2 * i : 
! tu t in step 2. 
/ CONTROL DB} Ij H 
ts ij | 
7 pei {f04] Return to module C02. { 
H |PART KEY |----4 {t-— H 
{ aa i 
1 H t ! | 
{ i H { 
| | | 
} ! ! ! | 
| | { i 
| { | | | | 
{ | 
| | | | | 
! | ! 
' / | { | 
| | | | 
t { | ' 
( i] | | 
{ 1- ! 
| | 
| 
Ue ees Be ok Met Se ee a iste wee re SPN Re RE | [ices Ba a oa 
005 - NEXT PARENT ON HIGHER LEVEL HIPOMAT 1.1 Diagram - 3.1.3.3-01 
Teac ks vee OS Te ee ag Oat eg it Warr ME Lge = 9 ae TT nO nag ee eam a Mh aeia On dae» i 
! Notes { Houtane | Label | Ref (! Notes Routine! Latel Ref 
fe ea ae we sa cece aaa SE: | aa ke Aaa Ca, acy CS) SES 
for] This allows to continue in | \ | | 
\ module 002 at step 1 on the next | H \ \ | 
| hiqher, i.e., numerically lower | \ | i] | 
] level. | { {{ 
t { | | ! { 
{ 1 ] { it 
| i | i] {1 | 
1fo2} A part may occur aultiple tines i | | \| 
H within a product-structure tree. | | | \ | : 
\ However, it must not occur twice | { | | i | 
\ within a hierarchical path. { | { tt | | 
! Therefore, if a hierarchical \ | | 1 | 
: ‘ aaa ! 
| Path is left or is modified, all | ] | l 
: PARTBEXP segments fcr continuity ! | \ II | 
\ check related to branches which | | | I! 
\ have become obsolete will be | | | HI 
1 removed. t | | | 
| | | { 
t ! | 1] 
| | It 
103} Since this hierarchical path is | | I} 
| exhausted, the control seqment | | | 1] 
i for explosion is deleted. i { | \| 
| | 
| ; | | 
{ | it 
\ | {| 
' | | Hl 
| | ! 14 
\ } | | 
| ne nr re 
| { \ | 
J ! i) i 
| | ; i 
| b | | 
Ie de Mek 
De ese ciel Se Ma ee pee ee 


005 - NEXT PAREWT ON HIGHER LEVEL HIPOMAT 1.1 Diagram - 3.1.3.3-0 
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APPENDIX B: DBD GENERATION 


DESCRIPTION OF DBD GENERATION. 


DBD generation is composed of a set of DL/I macro instructions, the 
execution of which creates the user-specified data base description 
(DBD) and places it in the DOS/VS source staterent library. The 
following macro instructions represent DED generation: 


Macro Instruction 


Name Purpose 
DBD Allows the DL/I user 


to define the name of the DBD and the 
data base organization 


DATASET Allows the DL/I user 
to define names for data sets 
representing a data base, the device 
type used for storage of the data 
base, the logical record length, and 
the blocking factor for the physical 
records in the data sets representing 
the data base 


ACCESS Used in conjunction with ACCESS=HD to define 
external access points, primary and secondary, 
to the data base. 


SEGM Allows the user to specify a CL/I segment, 
its parent segment, the segment length, the 
segment name, and segment prefix information 


LCHILD Allows the user to define an index 
relationship or a logical relationshir 
in which a segment will particirate. 


XDFLD Allows the user to define secondary 
indexing relationships. 


FIELD Allows the DL/I user to specify a data 
field or key field for a segment. The 
field definition includes the related 
segment field name, field start position 
in segment, field length, and field type. 


DBDGEN Causes the segments, fields, and data 
sets defined in the SEGM, FIELD, and 
DATASET macro instructions to be 
generated into an object module. 


FINISH Checks whether a CBDGEN statement was present. 


The DBD generation macros utilize a universal set of globals. The COPY 
book for these globals is in the DOS/VS Source Statement Library and 
is naned DLZDBGLB. 
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DBDGEN MACRO CALLING SEQUENCE 


| 
External | | | 
Macro | Inner 1 | Inner 2 | 


A ND SP SD ES SE AD SUD ED ED ED SD RD SENS RD ED ED ED ES AD AD ED OD ee ee een | 


DBD DLZAL PHA 


DATASET DLZALPHA 
DLZCKDDN 
DLZDEVSI 
ACCESS DLZALPHA 
DLZXTDBD 
SEGM DLZALPHA 
DLZSOURS DLZXPARM 
DLZALPHA 
DLZXTDBD 
DLZXPARM ? 
DLZXTDBD 
DLZSETFL [LZSEGPT 


XDFLD DLZALPHA 


LCHILD DLZALPHA 
DLZXTDBD 


FIELD 


DLZSEGPT 
DLZLRECL 
DLZSOURS 
DLZXTDBD 
DLZCAP 
(See Note) 
DLZHIERS 


DBDGEN 


FIELD 


DLZSDURS 
DLZHIERS 


FINISH 


——— me ee ee come eee COED Smee gees Gee Re ee ee ee ee ee ee ee ee ce ee ee ee a ee 
A pees SE ES ee, meee SES GE gee, ees es OE es ee ee eee es Se ees eee OO pees es es ee 2 ee 
es eS Gee, SE RES GS Re, MONE GENE A eS SS MS es GENS A GS GE A eS A SS A ES NE eS Se SE A A Ree SS Se MS ee 
cee Gee SE eee oe Se Me ee Se A ee ee SE ey dee, A Pe cee Ronee fee TS ieee foe, EE Sl pe ROE Pe om wee, ee Bere eee OS eee 


| 
: 
| 
| 


Note: Not called if device is FBA. 
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MACROS 





GLOBAL SYMBOLS < i 2 3 " c a 
4) S| ola| z\ a] Bal a| x| sx 
N NIN] NINININT NEN N 
| NAME — |TYPE al alalalalalalalalal a 
Paccae [8 | 
PaccoKy | 8 
| Accaoso | B_| 
jAccian | 8 | nee 
eee eh ee 
stat | | tt [Rt | Tt [Ry | 
| Acceri | 6 
| Accrad | 8 
Paccsec | 6 
a Beeae 
ie ete) cbal iets ia 
acess | s | 5 |lisi||isi/11fliittel 
Paccres | 8 eile cee 
ao 
ACCTSN 
ACCXD # 
Pauas | 6 
CSB iB | 
Foes |e | 
Posocaa | 6 | 
Poaoterw |e _ 
a 
Ds# 
A = algebraic C = character S = set 
B = binary R = reference U = reference/set 


Figure 7-2. DBDGEN MACRO-GLOBAL Symbol Cross Reference (Part 1 of 5) 
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MACROS 


GLOBAL SYMBOLS 


DATASET 
DLZCKDDN 
DLZDEVSI 
DLZHIERS 
DLZLRECL 
FS OPaETEE 
| | DLZSETFL 
DLZSOURS 
DLZXPARM 
DLZXTDBD 


NAME TYPE 


pases tat vo |1[|wiiiiiliiitil tite 

[osu Ta Po | el ee 

eee 

Posey |e | wo | o| 1] tiie 

fosrerr [a | wo [(s/1] 11 ll 

osraux [a] wo | s| 1111 

oseser [a | wo | (s[ 1111 irl 

Pose [a [wo [1 {TT [ 

foauss tat wo |{{{{1[I 

osnawe |e | | 11111) 

osomne fe fe 

Pesoeuxs [a [10 

rosowame | c— 

Tosonec | A 

fesnes [a [10 

DSSCN 

cae es 

ee 

osrax [a | ro | Ie} FCT CELL 

fee ba EPe 

festmee Ta Te TTT sel 
Cs Ge Ce a 

Oa eS ET 

Pexrosa ta | 11 dal (Pe 

pexrom fa fetal tal te TT tat te 

Fr EO 7 Co i 

Fe A eel A 

Prcous [a | woo [1] (ul{ irl 1111 al] del [1 

Freon |e | wom |1{lis{tiel IIIT 

recon |e | roo] || ol | dal Bee se 

Prcos# | a | roo ||| 1 Js 

ruose | 6 | ro | | || |s 

FLDSO 

recost | a | 1020 | Be 

cory | a | vo | 1 Pst] dal 

cenore [@ | TTI TITLE 


A = algebraic C = character S = set 





B = binary R = reference U = reference/set 


Figure 7-2. DBDGEN MACRO-GLOBAL Symbol Cross Reference (Part 2 of 5) 
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GLOBAL SYMBOLS 


ee 
paoam Pe [els iste trfele TTT et TT 
feos fat sist TT eT PT 
Peoons fe [ele tal elelel CTT detetetal 
women fa feet Te 
Pawam Te [ fulst ist steel PT TT det 
ee ee 
Pasam fe [feel PETE eT PTT tal ET 
Co ee 
fesors fe [tele PET et TT fel tele 
pwse Pe | st el PTT tele 





DLZCAP 


| | DLZDEVSI 


vnje/|a 
Fig} | o| o 
SE) 2l|2 
wi} ws 

HIN)! Ww] KX) x 
NININI NIN 
a} oa} oa} |] 
AIA;}AI|Aa!;aAa 


DATASET 
ACCESS 
FIELD 
LCHILD 
XDFLD 
DBDGEN 
DLZALPHA 
eae 
| | DLZLRECL 


















pinox fe [fuel try drt al | tt dey fet 
Ce ee een ORR eRe REE 
Se ee eee 
| icosie | 6 | 25 | | | | | is] [Ri | | | | TT TT tt 
[icose | a { zoo | | | (sy [st et TT TT PT 
ee ERO eee see eas 
Re ee eee 
ee Se ee eee 
ee eee RRR eC eee 
ae Ee eee Pa eRe eee eee 
pecruce | a | 25 | | | | is} fei | TT TP TT 
ee ee 
pucsname | c | 265 | | | elle Me Ie Jest 
fae terme rte a 
pecxo fat tT fet fefeiat | PE ET 
ee Ee ee PERE Re Ree 
cosican | @ | fulul jalrint Rt tt tT fel ft [Ry 
perece | ato oT TTT TT TT ty fet] ft 
| maxacc | a [isi jel | ie} TT TT TT TT ET TT 


Se ee ee eee 
pmaxop# | a {tsi TT TTT TTT TT TT TT | TT 
pMaxos# | a {  istri | | | PT TT ET ET Tt TET 
eis A 
Pee Stell Po ae 
MAXLCH | eT Te ave ea 
maxsess | a {| is! | tal | | | TT TE TT ET Tt 
pmaxss Tat ist | ETT Ti tet det 


A = algebraic C = character S = set 











B = binary R = reference U = reference/set 
Figure 7-2. DBDGEN MACRO-GLOBAL Symbol Cross Reference (Part 3 of 5) 
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GLOBAL SYMBOLS 


ee eee eee 2 
pee PtP ECE EEC 


DLZCKDDN 
DLZDEVSI 
DLZHIERS 
DLZSEGPT 
LZSETFL 
DLZSOURS 
DLZXPARM 
DLZXTDBD 


DLZLRECL 


DLZALPHA 





[pep 
DATASET 


Prust pee CP Pe 
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A = algebraic C = character S = set 
B = binary R = reference U = reference/set 


Figure 7-2. DBDGEN MACRO-GLOBAL Symbol Cross Reference (Part 4 of 5) 


7-24 Licensed Material -— Property of IBM 


GLOBAL SYMBOLS 
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B = binary R = reference U = reference/set 


Figure 7-2. DBDGEN MACRO-GLOBAL Symbol Cross Reference (Part 5 of 5) 
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DBDGEN MACRO DESCRIPTIONS 


DATASET MACRO 


This is an external macro through which data set/data set group 
information is specified by the user. 


DBD MACRO 


This is an external macro through which DBD control information is 
specified by the user. 


DBDGEN MACRO 


This macro terminates the DBD specification process. If the error 
Switch, CBDERR, is not set, the control block generation phase is 
entered to create the required block entries. 


DLZALPHA MACRO 


ey 


| 
Al 


AN 

AN1 , FIELD=, CHAR=,MAC=,O0PER= 
ALL 

DBD 

HEX 

BINARY 

BYTE 


DLZALPHA 


an SD Se aus Geen Se ae Gee eee ee 
eee 


l-_——._.-_ —_ - — —  d 


This macro is used to check the syntax of macro operands. The first 
(positional) parameter identifies the valid format as follows: 


Al or omitted First character must be 


A-Z, a, #, or §. 


AN1L = First character must be 


ALL = First character must be 
A-Z, a, #, or §$. 
Remaining characters must be 
A-Z, @, #, $, or 0-9. 


AN = All characters must ke 
0-9, A-Z, a, #, or $. 


HEX = All characters must ke 
0-9, A-F. 

BINARY = All characters must be 
0 or 1. 

DBD = First character must be 


A-Z, #, or $. Remainder 
Must be A-Z, #, $, or 0-9. 
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BYTE = Operand must be a valid 
one byte self defining term. 


The other parameters are: 


FIELD = Field to be checked. 

CHAR = Starting position for check 
if other than first position. 

MAC = MNOTE prefix for error MNOTEs. 

OPER = Name of operand being 


processed for MNOTEs. 


DLZCAF MACRO 


Car a ee Hn ee dg ee ee se te me Gyan s peigge = Qiu mae yen 


| | { l 
| | DLZCAP | DEVICE, BLOCKSIZ i 


Mn es a cece ee ee ice ee ee cee es ee re ee a ee ci re oe ree see ae ne en a ae ee a ee ee oe me 


This macro is called by DBDGEN to calculate the block capacity per 
track and cylinder provided the blocks do not have keys. These 
numbers are required to generate some entries within the DTFSD (HSAM) 
and ACB-extension. The capacities are returned using global 
arithmetic variables (GBLA). Input values are: 


DEVICE: 2314, 3330, 3333, 3340, 3375, 3380 

BLOCKSIZ: in bytes (key length = 0) 

Output (GBLA) and MNOTE: 

CAPTRK: number of blocks per track (GBLA) 

CAPCYL: number of blocks per cylinder (GBLA) 

MNOTE : DMAN150 if invalid device 

MNOTE: Comment containing $CAPTRK and $CAPCYL if calculation 


was successful 


DLZCKDDN MACRO 


a ee OE OSI Ee a nme ge reaps me Reo a af eee nee ee, eh ae ee ee 
{ l | | 
| | DLZCKDDN | FILENAME i 
I l | | 


| en I 


This macro checks the validity of filenames specified by the user and 
verifies that the specified filenames are not duplicated. 


The operand is: 
FILENAME 


is the one- to seven-character filename to be checked. 
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DLZDEVSI MACRO 


i er ee ee ee Ce ry a pS eg Pee ee Se ee ag a eg aay 


| | | [ 
| | DLZDEVSI | DEVICE I 


Ha i i a es ca a i Sa a ss ls se as es we ed ee eee 


This macro is called by the DATASET macro to set device capacity 
values for the specified device type. The device value specified in 
the DEVICE operand of the DATASET statement is passed to this macro. 


DLZHIERS MACRO 


{ [ 
| | DLZHIERS | S,LV,LCP 
| I I 


be res eer ce ys i ee ee er Sn ne nh a a a cn a ec es aw a oe ee om 


fe eens seen SE 


This macro is called twice by the DBDGEN macro. The first time is to 
validate segment hierarchies, field names, and locations. The second 
time, LV is set to “GENERATE", to generate the segment table entries 
for the DBD. 


The macro calls itself to process dependent segment definitions. 


The first time operands are: 


s = Segment table entry number of 
the segment to be processed. 

LV = Level for the segment to be 
processed. 

LCP = If one, it indicates that the 


segment to be processed is below 
a logical child in the physical 
hierarchy. 


The second time operands are: 


Ss = Segment table entry number of 
entry to be generated. 

LV = "GENERATE‘ 

LCP = Ignored. 
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DLZLRECL MACRO 


This macro is called by DBDGEN to calculate LRECL and BLKSIZE. 


DLZSEGPT MACRO 


| 
| | DLZSEGPT | i 
| | | | 


a ee eR | 


This macro is called by DBDGEN to maintain the globals DSLSL and 
DSSSL, which contain the sizes of the largest and smallest segments in 
a data set, respectively. This macro produces error messages DGEN250, 
251, 252, 253, 254, 255, 256, and 257 if the segment referenced by the 
operand value violates those rules. 


DLZSETFL MACRO 


This macro processes the POINTER or PTR operand of the SEGM macro and 
sets the globals to reflect the entered values. The globals set by 
this macro comprise bytes 0 and 1 of the 4-byte flags field of the 
SEGTAB entry for this segment. 

This macro is not entered if the DLZXPARM macro encountered an error 
while generating the &PLIST matrix, or if the SEGM macro detected an 
error in the POINTER or PTR parameter list. 

Messages: 

An error message is produced and processing is terminated if: 

e An invalid keyword is encountered in the parameter list, or 

e The RULES operand is omitted or invalid 


Flag Byte 1 is set as follows: 


Bit 1 - CTR If TWINBWD and/or LTWINBWD is specified, 
2 - TWIN Bit 2 and/or Bit 5 is set on, in 
3 - TWINBWD addition to Bit 3 and/or Bit 6, 
4 - PARNT respectively. 
5 - LTWIN 
6 - LTIWINBWD 
7 - LPARNT 
8 - NOTWIN 


Licensed Material - Property of IBM 7-29 


| Flag Byte 2 &SRULES is set as follows: 
Bits 1 & 2 Indicate segment insert rule, where: 
10 - Physical 
01 - Virtual 
11 - Logical (Default) 


Bits 3 &6 4 Indicate delete rule and set same as insert. (Default 
value is LOGICAL). 


Bits 5 & 6 Indicate replace rule and set same as insert. 
(Default value is VIRTUAL). 


Bits 7 & 8 Indicate physical location of inserts for nonsequenced 
segments, where: 


10 - First 
01 - Last (Default value) 
11 - Here 

The operands are: 


RULES= 


specifies the RULES= operand as specified on the SEGM statement 


DLZSOURS MACRO 


This macro is called by the SEGM macro to process the SOURCE 
parameter, by DBDGEN to validate index table entries and generate the 
source and index tables, and by DLZHIERS to generate the segment takle 
entries for number of source segments and offset to first entry. 


The parameters are: 


OPTION = ADD - process source operand. 
PARM = operand. 


= CHECK - validate and connect 
index table entries. PARM ignored. 


= LIST - generate SOURCE and 
index tables. PARM ignored. 


= FIND - generate segment table 
entries, PARM=segment table number. 
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DLZXPARM MACRO 


When used this macro extracts parameters from a sublist and stores 
them in a global matrix (PLIST). Null values in the parameter list 
are stored as null values in the PLIST matrix. 


The operands are: 


PARM= 
specifies the input parameter list values 
MODEL= 
identifies the model for a fully defined sublist, 
indicating the locations in the PLIST matrix for the 
parameters. (for example, MODEL=(1,2), (3,4,5)). 
MSG= 


identifies the parameter Leing processed in the first 
operand and the MNOTE prefix in the seccnd operand. 


DLZXTDBD MACRO 
Gage a ng ee RE ae une tae aie Pg NA TN ee gt agra ee ee 


i | 
| | DLZXTDBD | DB,CODE | 


This macro builds an external data base reference table. It is called 
by SEGM, LCHILD, and DBDGEN. 


The operands are: 


DB 


specifies a data base name or segment name 


CODE 
specifies the value SEGM or is omitted. 


If the value SEGM is specified in the CODE operand, 
the segment name (SN) is searched to locate the value 
specified in the DB operand; when found, the symbol 
EXTIDBN is set to contain an 01 in byte 0, and bytes 1, 
2, and 3 contain an offset into SEGTAR. If the 
segment is not found, an MNOTE error message is 
produced. 
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If the CODE operand is omitted, the external data base 
reference table (DBNAME) is searched for the CB entry, 
and, if found, the symbol EXTDBN is set to contain the 
position of the found entry. If the DB value is not 
found, the value is added to the table and EXIDBN is 
set to that entry. 


FIELD MACRO 


This is an external macro 


FINISH MACRO 


This is an external macro 
supplied. 


LCHILD MACRO 


This is an external macro 


used to define fields within a segment. 


used to check whether a DBDGEN staterent is 


used to define index or logical 


relationships for HIDAM and HDAM or logical relations for HD. 


SEGM MACRO 


This is an external macro 


XDFLD MACRO 


This is an external macro 
statement secondary index 


ACCESS MACRO 


This is an external macro 
data base for ACCESS=HD. 


used to define data base segments. 


used to define in connection with the LCHILD 
relationships for HIDAM and HLAM. 


used to define external access points to the 
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DBD. GENERATION CONTROL BLOCK OUTPUT - DBDGEN 


The data base description block (DBD) is the result of each data base 


generation. 


e DIAGRAM OF DBDGEN CONTROL BLOCK OUTPUT 


GENERAL STRUCTURE: 


| | DIRECTORY | 


| a ne te a te ee ee ee ne ee ee oe ae ne ee ee ae ee en ere eee ee | 


PREFIX 


DMANTAB | 


ACB EXTENSION (SAME AS DMB) 
(If HSAM or SSAM, DTFs) 


A FY SUF A we aD OE ETE ETO ME MEE DE BA RD AS pe A SS EE ED SS le NE AE A OD AR OS eS aT SE OD se hl 


SEGTAB 


a a A ec I ATT CD TP cm mre ee ce ee ee ce rm age er age “Owe ee ne te tn te ned ee cg eo ee sci str atte 


| EXTDBD | 


| DACT 


COMPRESSION EXIT CSECTS 
(same as DMB) 


INDEX EXIT CSECTS 
(same as DMB) 


| a a 
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1. DIRECTORY LAYOUT 


Hex Dec 
0 0 
1 1 
4 4 
8 8 
Cc 12 

10 16 

14 20 

18 24 

ic 28 

20 32 


2- PREFIX LAYOUT 


Hex Dec 
0 0 
8 8 
A 10 
c 12 
D 13 
E 14 
10 16 
18 24 
1A 26 
1c 28 
20 32 
7-34 


Name Ln 
AMODLEV 1 
APREFIX 3 
AS EGTAB 4 
AFLDTAB 4 
ALCHILD 4 
AEXTDBD 4 
ASORTAB 4 
ARMVTAB 4 
AIND XTAB 4 
ADSGCB 4 
Name Ln 
PREDBDNM 8 
PRENOLEV 


2 
PRENOSEG 2 
1 


PREACCES 


Name 


PRENODSG 


PRENODBD 


PRERNDM 


PRENOLCH 


PREAP 


DBDP FRBN 


DBDPFBYT 


PRESHIS 
PREISAM1 
PRESSAM 
PREHSAM 
PREHD 
PREHI 
PRENDEX 
PREIMSC 


Description 


Release level (X*00*'=1.0, 
X'11"=1.1) 


Address of PREFIX 
Address of SEGTAB 
Address of FLDTAB 
Address of LCHILD 
Address of EXTDBD 
Address of SORTAB 
Address of DMBDACS 
Address of INDXTAB 


Address of ACB extension 


Description 


DBD name 
Number of levels in data base 


Number of segments 


Organization 

EQU Meaning 

X*01" Simple HISAM 

X*02* HISAM 

X"°04" Simple HSAM 

X*05" HSAM 

X" 06" HDAM 

X*07" HIDAM 

x*08" INDEX 

X"80' IMS compatibility 
required 


Number of data sets 

Number of externally referenced data Lases 
Randomizing algorithm name 

Number of logical children 

Number of root anchor points 

Maximum relative block number (HD) 


Maximum bytes in prime area (HD) 
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3 


fF oA wo oO | 


10 
12 
14 
16 
18 
1A 


1c 


DMANTAB LAYOUT 


18 
20 
22 
24 
26 
28 
30 
32 


Name 
PREDD1 
PREDEV1 
PREID 
PRENSGA 
PREDELTA 
PRELSL 
PRESSL 
PRELKL 
PRESKL 
PRELRECL 
PREBLKSZ 
PREOLREC 
PREOBLKS 


PREDD2 


ACB EXTENSION 


"ACB Extension - ACBXT". 


SEGTAB LAYOUT 


oN NM | NH YB NB YB WB NY FP FP F& & IB 


Description 


Input or prime filename 

Device type 

Data set group ID 

Numker of segments in data set 

Delta scan cylinders (HD) 

Length of longest segment plus prefix 
Length of shortest segment plus prefix 
Length of longest key 

Length of shortest key 

Prime/inrgut record length 

pr ime/input block size (control interval) 
ESDS/output record length 

ESDS/out put block size (control interval) 


ESDS/cutput filename 


of these tables exists for each segment. — 


12 


au ew Nw of 
«41a 


Name 
SEGDSNO 
S EGP HYCD 
SEGPARPC 
SEGLEVEL 
SEGNOLCH 
SEGNOFLD 


SEGLENG 


SEGFREQ 


SEGSEGNM 


Ln 


1 


be FP FP FP RP PB 


+ 
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Description 

Segment data set nunber 
Séqnent code | 

Parent segment code. 
Segment level 

Numker of logical children 
Number of fields 


Segment data length (maximum length 
if variakle length segment) 


Reserved 


Segment name 


7-35 


14 20 SEGFLG1 1 Prefix pointer flag 


EQU Meaning 


X* 80" Counter 

X" 40" Physical twin forward 
x" 20" Physical twin backward 
X'10" Physical parent 

x'08* Logical twin forward 
X" 04" Logical twin backward 
x" 02" Logical parent 

x" 01° Hierarchical 


15 21 SEGFLG2 1 Segment update rules 
EQU Meaning 


Insert rule 


x" co" Logical 
x" 80° Physical 
xX' 40" Virtual 
Delete rule 
Xx" 30" Logical 
X* 20" Physical 
x'10" Virtual 
Replace rule 
x‘oc* Logical 
x* 08" Physical 
X* 04" Virtual 


Physical location of inserts, when 
no key field 
X* 03" Here (current position) 


X"02" First 
x‘'o1" Last 
16 22 SEGFLG3 1 


Xx"08" Parent has backward pointers to 
this segment 


17 23 SEGFLG4 1 Number of physical children pointed 
to directly by this segment 

18 24 SEGLGHLD 4 Offset to first LCHILD entry 

1c 28 DBDSSN 2 Number of source segments 

1E 30 DBDSSOFF 2 Offset to first source segment 

20 32 SEGFLDTB 4 Offset to first FLDTAB 

24 36 DBDSPFSZ 2 Segment prefix size 

26 38 SEGLENGV 2 Minimum segment length 
(0 if fixed length) 

28 40 Reserved 4 Reser ved 


7-36 Licensed Material - Property of IBM 


2c 44 SEGPACOP 1 VL-Compression options 


Name EQU Meaning 
SEGCPRT X'08"* Segment has compression 
routine 


SEGTY PVL x'0O4" Segment is variable length 
SEGPACIT Xx*01" Initialization exit 
requested for compression 


routine 
2D 45 SEGPACRT 3 Address of compression table 
6. FLDTAB LAYOUT 
Hex Dec Name in Description 
0 0 FLDNAME 8 Field name 
8 8 FLDSTART 2 Start position offset 
A 10 FLDFLAG 1 
EQU Meanin 
X* 80" Last field for a SEGTAB 
X"40° Sequence field 
X*20° Multiple sequence fields 
x*10" Special FDB 
Field type 
x" 01" Hexadecimal 
X*02" Packed 
x"03" Character 
X*04* Floating point 
B 11 FLDLEN 1 Field length 
Cc 12 FLDS NAME 8 Source field name 
14 20 FLDSEGTB 4 Pointer to SEGTAB entry 
7. %§EXTDBD LAYOUT 
Hex Dec Name in Description 
0 0 EXTDBNM 8 Externally referenced data base name 
8 8 EXTRSVD 4 Reserved 
8. LCHDTAB LAYOUT 
Hex: ¢ Name Ln Description 
0 0 LCHS EGNM 8 Segment name 
8 8 LCHCODE 1 
Bit Meaning 
0=0 LCHEDBD address is a EXTDBD entry 
0=1 LCHEDBD address is a SEGTAB entry 
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9 9 LCHEDBD 3 


Cc 12 LCHFLAG 1 


EQU 


x"80" 
x"4O* 
X20" 
X"10" 
X'08" 
x" 04" 
x02" 
X'01" 


D 13 LCHIBYTE 
E 14 LCHPRDSG 


10 16 LCHFLDNM 


9. SORTAB LAYOUT 


Hex Dec Name Ln 
0 0 DBDSORNM 8 
8 8 DBDSSFLG 1 
9 9 DBDSSDBO 3 


10. INDXTAB 


Reserved 


Offset to EXTDBD or SEGTAB entry 


Meaning 


Last entry for a SEGTAB 
Reser ved 

INDEX entry 

Reserved 

LP definition 

INDEX pointer 

SNGL pointer 

DBLE pointer 


1 Reserved 
2 Offset to paired segment 
8 Indexed field name 


Description 


Source segment name 
Source segment flag - reserved 


Offset to data base entry 


See “Secondary List - SEC (Codes 64, 44, 40, 24, 20, 04)". 


11. DACT 


See "Direct Algorithm Communication Table - DACT". 


12. COMPRESSION EXIT CSECTS 


See “Compression CSECT - CPAC". 
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APPENDIX C: PSB GENERATION 


DESCRIPTION OF PSB GENERATION 


PSB generation is composed of a set of DL/I macro 

instructions, the execution of which creates the user-specified 
program specification block (PSB). 

The following macro instructions represent PSB generation: 


Macro Instruction 


Name . Purpose 
PCB Allows the DL/I user to define a program 


conmunication block (PCB), one or more of 
which exist within a single PSB. A PCB must 
exist for each data base with which the 
associated application program PSB intends to 
interact. 


The PCR macro saves the type of PCB, 
associated data base name, the intended 
processing options on that data base, and the 
maximum key length within the data base. One 
or more PCB macros can be used in a single PSB 
generation. The limit is 20 PCB macros per 
PSB generation. 


SENSEG The SENSEG macro instruction allows the DL/I 
user to specify a segment within a data base 
to which the application program associated 
with this PSB is sensitive. Up to 255 SENSEG 
macros may follow a PCB macro. 


PSBGEN The PSBGEN macro allows the user to specify 
the associated application program language 
and the name of the PSB control block to be 
generated. The PSBGEN macro is the generating 
macro for the entire PSB control block and its 
internal PCB control blocks. 


SENFLD The SENFLD macro gives the DL/I user the 
ability to specify segment sensitivity ona 
field level. Up to 255 fields within a 
segment, and 4095 fields within a PSB may be 
specified. 


VIRFLD The VIRFLD macro gives the DL/I user the 
capability of defining fields in the user's 
view of a segment that do not exist in the 
physical view. In conjunction with the SENFLD 
macro, up to 255 fields per segment, and 4095 
fields per PSB may be specified. 
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PSBGEN MACRO CALLING SEQUENCE 


External 


Macro 


| 
| 


SENSEG 


PSBGEN 


GLOBAL SYMBOLS 


DBNAM 


m 
io) 


EXTDB 
FERTN 
FERTNM 
FSLNGT 
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FSSTRT 
FSTYPE 
FSVALU 


NFLD 
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o 


ee 
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Figure 7-3. 
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algebraic 
binary 
character 


PSBGEN MACRO-GLOBAL Symbol Cross Reference 


wn 


reference 
set 
reference/set 


PSBGEN MACRO DESCRIPTIONS 


DLZALPHA MACRO 


A description of the DLZALPHA macro appears in Appendix B. 


DLZCKOPT MACRO 


This macro is called by the PCB macro or SENSEG macro to validate the 
PROCOPT operand. The macro generates either the PCB or the SENSEG 
*PROCOPT OPERAND IS INVALID" error message. Global symbol PO or SPO 
is set to contain the processing option. 

The operands are: 


OPT specifies the PROCOPT operand as entered 
on the PCB or SENSEG statement 
M is PCB or SENSEG message number 
DLZPCBPD MACRO 
This is an inner macro called by the PSBGEN macro. it generates the 


PL/I dope vector table if LANG=PL/I is specified in the PSBGEN 
statement. 


PCB MACRO 


This is an external macro used to define a DB PCB. 


PSBGEN MACRO 


This is an external macro used to terminate PSB specifications, and, 
if no errors have been encountered, to cause the generation of the PSB 
control blocks. 


SENFLD MACRO 


This is an external macro used to specify sensitive fields within a 
sensitive segment. 


Licensed Material - Property of IBM 7-41 


SENSEG MACRO 


This is an external macro used to specify sensitive segments in a data 
base PCB. . 


VIRFLD MACRO 


This is an external macro used to specify fields that exist in the 
user's view of a sensitive segment, but not in the physical view. 
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PSB. GENERATION CONTROL BLOCK OUTPUT — PSBGEN 





1. PSB - PREFIX 


Hex Dec Ln Description 
0 0 4 Address of SEGTAB 
4 4 4 Address of SORTAB 
8 8 4 Address of DBREFTAB 
c 12 4 Reserved 
10 16 4 PST address (prefix size) 
14 20 12 Reserved 
20 32 1 Reserved 
21 33 1 PSB code 
22 34 2 PSB prefix size 
24 36 2 Reserved 
26 «38 2 Offset to first DB PCB address 
28 40 Var Address of PCB(s) (one 4-byte 
address for each PCB) 
2. DB PCB 
Hex.Dec Ln Description 
PL/I dope vectors precede PCB if LANG=PL/I 
0 0 8 Data base name 
8 8 1 Reserved 
9 9 1 Flags 
04 - I,0,R,E, ox A PROCOPT 
specified 


02 - Go PROCOPT for PCB 
01 - All segment processing 
options are either E or 


GO for PCB 

A 10 2 Status code 

12 4 Processing opt ions . 
10 16 4 JCB address 
14 20 8 Segment name feedback 
1c 28 1 Position 
1D 29 3 Key feedback length 
20 32 2 Number of sensitive segments 
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22 
24 


3. 


Hex 
0 
8 
C 


10 
14 


7-44 


34 
36 


2 


Var 


SEGTAB ENTRY 


De 


a 


foe) i=) | 


12 


13 


13 
16 
18 


DBREFTAB ENTRY 


era: 


.Dec In 
0 12 
12 4 
13 3 
FLS TABLE 
Dec Ln 
0 4 
4 4 
8 4 
12 4 
16 4 
20 4 


Offset to first SENSEG 


Key feedback area 


Decription 


Segment name 

Processing options 

Flag 

80 Last table entry 

40 Field Level sensitivity 
for segment 


Offset to PCB for secondary 
processing sequence. entry 


PCB address 
Offset to parent segment 


offset to FSB list 


Description 

Data base name 

Flag byte 

40 - Secondary processing 
sequence 


Offset to PCB for secondary 
processing sequence entry 


Description 

FSB list address 

FSB table address 

Field exit routine table address 
Field exit routine table length 
Initial value table address 


Initial value table length 
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6. FSB LIST ENTRY 


Hex Dec Ln Description 
0 ¢) 1 Number of FSBs for segment 
1 1 3 Address of first FSB for segment 
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APPENDIX D: DL/I MACROS 


This section describes the executable processing macros 
that standardize some processing routines and DSECTS and lists the macros that 
provide the DSECTs. 


DLZBLDL 


This macro is used to search the core image libraries to determine if a specified 
load module is present. 

Optionally, if the phase is present, the length of it is calculated for the caller. 
The DOS/VS LOAD macro (TXT=NO) is used to obtain the directory entry information. 


OPERANDS 
The descriptions and valid parameters for the two keyword operands 
are as follows: 


e PHASE The name of the phase in the core 
image library. 


=(reg) The register specified in parenthesis must point 
to the 8-byte name (padded with blanks if necessary). 


="name‘ The actual phase name may be specified enclosed 
in single quotes. 


= label This is the label of an 8-byte field containing 
the phase name with any necessary blanks. 


Register 1 is the default which must be loaded 
with the address of the name. 


e LENGTH Specified if the caller desires the actual length of the load 
module to be calculated by this macro. 


= (reg) The register specified in parenthesis will contain the length 
in binary of the load module as indicated in the directory entry. 
Register 15 is invalid. 


= label This is the label of a fullword in the calling program 
which will contain the length of the found phase on exit. 


If LENGTH is omitted, no length will be calculated. 


EXIT CONDITIONS 


R15 = 0 The phase was found and the length, if requested, 
has been returned. 
R15 = 4 The phase was not found. 
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egisters 0 and 1 are destroyed unless specified for the length register. 
1l other registers are unchanged. 


LZBLKLD 


his macro is used by some DOS/VS DL/I utility programs to request the initialization module 
o load all control blocks needed to process a specified utility PSB. 

, utility PSB is built by the application control block creation and maintenance 

tility for every user DBD except a primary HIDAM index, logical, or HSAM. 


‘he utilities which use this special function have ‘ULU' in the first three Lytes 


£ the parameter card. 
Ihen katch initialization determines (by utility name - either DLZURPRO, DLZURGSO, or DLZURGFO) 


-hat the DLZBLKLD macro will be used, it does not load any control blccks. 
‘he action modules and PST and SCD are loaded, however. 
Ihen the utility first receives control, register 1 contains the address of the PST. 


)/PERAND 


Ihen the utility reaches the point where blocks are needed, 
.he DLZBLKLD macro is executed: 


{(reg)] 
\LZBLKLD DMB= [label] 


the DMB operand indicates the address of the 8-byte DMB name 
‘or which blocks are required. 
gither the register number (reg) or the label of the field may be specified 


:O indicate the address. 
tf this operand is omitted, register 1 is assumed to contain the address of the DME nare. 


(he expansion replaces the ending *D" of the DMB name with a "U". 
4 CALL is made to ASMTDLI with the parameter list as follows: 


DC A(FUNC) Address of function 
DS CL8 The name of the utility PSB 
*UNC DC C'BLDB" Function 


SXIT CONDITIONS 


After execution of this DLZBLKID macro, register 15 contains a return 
zode: 


215 = 0 The blocks were loaded successfully. Register 1 contains the 
address of the list of PCB addresses. 


R15 # 0 The blocks were not loaded successfully. Register 1 contains 
the address of the name of the block which could not be 
loaded. 


Any previously loaded blocks have been overloaded and new buffer pools 
have keen allocated. 
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When the utility program returns to the language interface at end-of- 
job, a return code is expected in register 15. If register 15 is 0, 

normal unload processing will occur. If register 15 is non-zero, no 

UNLD call will be made. This return is used when no blocks have been 
successfully loaded. 


DLZCAT 


This macro is used to provide the module CATALR statement. It is 
updated for each release with the current version/release number. By 
having all modules use DLZCAT, it ensures that the CATALR statement 
will always contain the latest version/release number. 


DLZDVCE 


The DLZDVCE macro is availakle for the utilities to: 

- Determine whether a logical unit is assigned or not. 
- Determine if it is assigned to disk or tape. 

~ Modify the corresponding DTF. 
The format of the macro is as follows: 


DLZDVCE (MF={E|R|L|C}1L,f{listname| (r)}] 
{,DISKDTF={dtfnamei | (r)}] 
{ ,MODIFY={NO| YES}] 
{, TAPEDTF={dtfname2| (r)}] 
{, FNAME={filename| (r)}] 
{ ,RECFM={F IXUNB | VARUNB| UNDEF | FIXBLK | VARBLK}] 
{ ,DEVADDR={SYSnnn | (r)}] 
{, DT FADDR={fiel dname| (r)}] 
{, LNAME=listname] 
{, EOXTNT=routinename] 
{,REWIND={optionaddr | (r)}] 


The operands have the following meaning: 


MF specifies the type of code to be generated ky this 
expansion. This allows for multiple invocations of the 
function without generating multiple copies of the code 
itself. 


E generates the mainline code and, unless ‘listname* is 
specified, a parameter list. 


Note: Only one execute form of the macro is allowed 
for one single assembly. One, however, is required. 
If encountered more than once, it will ke reset to R 
for all macros but the first one. 


The entry point of the mainline routine is always 
DLZDTENT. This will ke used by all calls generated Ly 
R type macros. 

R A series of instructions to invoke the main routine, 
and, unless “listname' is also specified, a parameter 
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list will Le generated. DLZDTENT is used as branch 
address to the main routine. 


listname specifies a parameter list to be used with this 
execution or invocation. The list must be defined in 
the program with an MF=L macro or using the LNAME 
operand in an MF=E or MF=R macro. Listname is only 
valid with E or R. If listname is specified, any 
other operands specified will permanently override the 
corresponding parameters in the list. Not specifying 
an operand, however, will not clear the correspcending 
field in the list. 


Register notation may be used, in which case the 
register must ccntain the address of the list. 


L Only a parameter list but no code will be generated. 
Either the label field or the LNAME parameter (or 
both) can be used to assign a name to the list which 
can be referred to by any E of R form. 


Register notation in the operands of an L form macro 
is not allowed, except for the DTIFADDR operand. 


Cc causes a check to be performed on all parameter lists 
generated during this assembly. All references to a 
Single list are totaled and the presence of all 
required operands is checked. An error summary is 
printed. This form of the macro should be used as the 
last occurrence of DLZDVCE in any single assenbly. 


Note that passing this check error-free does not 
necessarily guarantee error-free execution, since the 
check cannot foresee the sequence in which the various 
DLZDVCE invocations are executed. 


If the MF operand is omitted or invalid, it will default 
to E in the first macro encountered, and R in all other 
occurrences. 


DISKDIF specifies the name of the disk DTF to be modified if the 
logical unit is assigned to a disk device. If register 
notation is used, the register must contain the address of 
the DTF. 


Specifying DISKDTF=0 or a register containing zero will 
nullify the parameter. 


If this operand is not present at execution time (after 
any overriding), the routine will consider assignment to a 
disk device as invalid. 


TAPEDTF specifies the name of the tape DTF to be modified if the 
logical unit has been assigned to a tape device. If 
register notation is used, the register must contain the 
address of the DTF. 


Specifying TAPEDTF=0 or a register contai ning zero will 
nullify the parameter. 


If this operand is not present at execution time (after 


any overriding), the routine will consider an assignment 
to tape as invalid. 
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MODIFY 


FNAME 


RECFM 


If MF=E or R without listname was specified, either 
DISKDTF or TAPEDTF or both must be specified. 


specifies whether or not the selected DTF is to be 
modified accordingly or not. MODIFY=YES is the defauit. 
If MODIFY=NO was specified, and a valid device type was 
found, register 15 will have a negative return code, 
indicating that no modification has been done. j 


specifies the filename to be moved into the appropriate 
DTF. If not present at execution time, the DTF field is 
not changed. For register notation, the register must 
point to a seven-byte field containing the file name. 


Specifying a register pointing to a hex zero string will 
nullify the parameter. 


specifies the record format of the file. One of the 
values shown must be specified. Omission or invalid 
specification defaults to VARBLK. 


DEVADDR specifies the logical unit number to be tested. It must be in 
oO 


DLZER 


the form SYSnnn, where nnn is 000 to 243, or in register 
notation, in which case the register must contain the unit 
number as a binary number in the same range. 


This parameter is required if MF=E or R without listname 
was specified. 


This macro is used in module DLZLBLMO to specify a message. Code is 
also generated to support selection by message id. 


OPERANDS 


DLZER ID=nnn,TEXT=textl,LAST=NO ] 


ID 


TEXT 


LAST 
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" 


if YES] 
one to three digit message number ("NNN* in “DLZNNNI"). 


message text. Text is a string of parameters enclosed in left 
and right parentheses. Each parameter is either a character 
string enclosed in quotes; or a set of two values, the first 
indicating a length to be reserved for a field to be 
dynamically inserted, and the second the register that will 
contain the address of the field to be inserted (not register 
R1 or R15). 


(The message number is generated by the macro and need not be 
included in the text.) 


TEXT=("THIS IS ',3,R5," AN EXAMPLE *,8,R4) 


"YES" indicates that no further messages exist. This is a 
special message. The contents of the specified register will 
be converted to BCC and stored in the field for each insert 
field. 
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This macro also generates the code to select and format a message. 
Preceding the first call of DLZER, code must be supplied to establish 
addressability and equates must be supplied for ‘R1" and ‘*R14". 
INPUT: 

"Ri should contain the message code in binary format. 

"R14" must contain the address of the routine to process a message 
once it has been located and formatted. . 

OUTPUT: 

"R1' will contain a pointer to a two byte field containing the length 
of the message. The message directly follows this two byte field. 
The message is formatted as: 


ODLZNNNI TEXTTEXTTEXTTEXTTEXTTEXTTEXTTEXT 


DLZDLIST 


This macro is used to build the parameter list for the IPCS: Dump 
Hooks. This parameter list is required by the DLZIDUMP macro. 





| 
1 MOD=nod~name | 
| , VR=version-number | 
| , PTF=ptf-number 1 
I i 

J 


ome eee ee ee en eee a te me em ce eee eee ee tee cee ce ee ee ce ce cece a oe cece et ee ee eam a me cc a nt meme eee ED oe em 6 


This macro is used to provide module identification for all DL/I 
modules. It sets the global, &DLZMOD, which contains the module name, 
and the global, &DLZVR, which contains the version, release, and PIF 
number. These globals can then be used by other macros or referenced 
by the module itself. 


In addition to the constants generated to include the version/release 
level of when the module was last changed as entered by the caller, 
another set of constants is automatically included for the current 
version/release number of DL/I. This macro contains a Base Code 
Indicator which identifies who last assembled or updated the module. 


The operands are: 
label 1-8 character label (mod-name) 


mod-name Name of module, If omitted, the . 
present CSECT name is used. This 
name appears in an 8-byte character 
constant. 


version-number 1-3 digit version/release numker..- 
If omitted, this field is set to zeros. 
Zeros are concatinated to the number 
specified to insure three digits. 
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This field is divided into three i-bkyte 
character constants. 


ptf-number 1-digit number of the latest PIF 
applied. If omitted, this field appears 
as a i-byte character constant. 


DLZIDUMP 

This macro is used to call the IDUMP facility to provide a dump in 
the format acceptable for analysis by IPCS Service Routines. 

If the conditions for the dump are satisfied, the IDUMP macro is 


executed. If IDUMP has not been activated, the alternate dump path 


DLZIPOST 


This macro is used by DL/I to post ECEs in an online environment. 


There are no operands. Register 2 must contain the address of the ECB 
to ke posted. Bit 0 of byte 2 is set on. 


DLZIWAIT 


This macro is used by DL/I to communicate with an IWAIT routine 
(DLZIWAIT) to wait until an ECB is unposted. 


There are no operands. The PST must be addressable and register 2 
must contain the address of the ECB that is to be waited for. The 
caller must have provided a USING SCD,15. Registers 14 and 15 are 
used to branch to the DLZIWAIT routine. 


DLZTRCAL 


This macro is used by action modules to invoke the tracing facility. 
Refer to DL/I DOS/VS Diagnostic Guide for a description of this macro. 


DLZREL 


This macro defines a macro variable, &DLZVER, and sets it to indicate 
the current version of DL/I. 


DLZTRPRM 


This macro is called by the DLZTRACE macro to parse parameter lists. 
It is similar to the DLZXPARM macro of DEDGEN (see “DLZXPARM Macro" in 
Chapter 6). In addition to the interface described for DLZXPARM, the 
length of each parameter list member is passed to the caller in the 
GBLA fields $PLEN( 25). 
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DLZMPCPT 


The master partition controller (MCP) partition table is used to pass 
control information when processing batch partition application 
programs under MPS (Multiple Partition Support). The MEK partition 
table resides in the transaction work area. 


DLZTWAB 


This macro provides the mapping for the BPC katch partition control 
information for the DL/I task termination routine under MPS (Multiple 
Partition Support). This information resides in the EPC's task 
transaction work area. 


DLZXTAB 


This wacro provides the mapping for the XECBTAB macro DEFINE, DELETE, 
and CHECK options under MPS (Multiple Partition Support). 


DLZXCB1 


This macro maps the DLZXCBni and the data that follows it. It is used 
to check data under MPS (Multiple Partition Support). 


MACROS USED TO CREATE DSECTS FOR DL/I SYSTEM CONTROL BLOCKS 


The following macros are used to generate DSECTS for the DL/I control 
blocks: 


DLZBFFR 
DLZBFFPL 
DLZDDIR 
DLZIDLI 
DLZPDIR 
DLZPPST 
DLZPSIL 
DLZPST 
DLZSCD. 


Macros used only by utilities to generate DSECTs: 


DLZCKPT 
DLZDTF 
DLZIDBD 
DLZRECO 
DLZUCHDR 
DLZUCOLD 
DLZUCREC 
DLZUCUMC 
DLZUDHDR 
DLZURGUF 
DLZURHDR 
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DLZUSTAT 
DLZTRENT. 


Miscellaneous macros: 


DLZDLIST Creates parameter list for DLZIDUMP macro 
DLZDLP Log record DSECTs and declarations 
DLZHDSO Work area for DLZDHDSO 

DLZIDUMP IPCS dump hook macro 

DLZQUATE Register equates 

DLZSBIF Work area for DLZDBHOO 

DLZUMSG Messages for utilities 

DLZWA Work area used by DLZDLDOO 

DLZXMTWA Work area used by DLZDXMTO. 


DI/I QUEUING FACILITY MACROS _. 


Four macros are available to request processing of a specific function 
by the queuing facility module (DLZQUEFO). The functions that can Le 
requested and the macros that can be used are: 


Function Requested Macro Used 
Enqueue DLZENQ 
Verify DLZVER 
Dequeue DLZDEQ 
Purge DLZPUR 


The functions are described in Section 3 of this manual. The format 
of each macro and the description of the operands is as follows: 
Formats 

DLZENQ (PST=r1)(,LEV={RO| UPD |EXC}] [, ID=r2][, FLAG=x" hh"] 

DLZVER (PST=r1](,LEV={RO| UPD |EXC}][, 1 D=r2] [, FLAG=x" hh* ] 

DLZDEQ ([PST=r1i) (,LEV={RO| UPD |EXC}] (, 1 D=r2][, FLAG=x"hh‘] 


DLZPUR ([PST=ri][,FLAG=x"hh'] 


Operands 


PST=r1 
specifies the symbolic (or absolute) name of a register 
containing the address of the PST. It this operand is 
omitted, register one is assumed. 

LEV={RO| UPD|EXC} 
specifies the level involved; RO = read only, UPD = urdate, 
and EXC = exclusive. If omitted, it is assumed the PSTQLEV 
field in the PST is set with the proper code. 

ID=r2 


specifies the symbolic (or absolute) name of a register 
containing the address of the seven Lyte field containing the 


7-54 Licensed Material ~ Property of IBM 


resource ID. If omitted, it is assumed the address is stored 
in the PSTWRK2 field in the PST. 


FLAG=x"hh' 


specifies the byte value that is “*OR"ed into the return code 
for those tasks currently waiting for the resource. 
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abnormal task termination 

dump entry (see DLZODP06) 

1/O check entry (see DLZODP07) 
ACB creation and maintenance (see DLZUACBO) 
ACB extension 5-13 
ACBXT - ACB extension 5-13 
ACCESS macro 7-32 
accumulation header record 5-183 
accumulation record 5-183 
ACT (application control table) 3-13 
ACT - partial reorganization action table 5-17 
action table build (see DLZPRABC) 
application 

control blocks load and 

relocate(DLZBLM0O) 3-6 

control table(ACT) 3-13 

program control (DLZPCC00) 3-5 

program scheduling record 5-184 

program termination record 5-184 
attach logger 3-17 
ARGO - HLPI ARGO parameters 5-19 


backout utility (see DLZBACKO) 
batch 
initialization (see DLZRROO) 
partition 5-2 
partition controller (see DLZBPC00) 
system 1-2 
batch/MPS EXEC interface (see DLZEIPB1) 
batch/MPS FLD storage manager 
. (see DLZEIPBO) 
BFFR (buffer prefix) 5-22 
BFPL (buffer pool control 
block prefix 5-25 
BPC (see DLZBPC00) 
buffer 
handler (see DLZDBH00) 
prefix (BFFR) 5-22 
pool control blocks 5-11 
pool control block prefix (BFPL) 5-25 


call analyzer (see DLZDLAO0) 
checkpoint log record 5-185 
checkpoint record 5-185 
CICS journal logger (see DLZRDBL1) 
COM - common area 5-28 
common get storage (see DLZODP 10) 
common free storage (see DLZODP 11) 
compression/expansion table (CPAC) 5-37 
control block relationship 5-4 
control blocks (see DSECT) 
control data set list entries 5-186 
control program initialization 
(DLZCPI00) 3-7 
CPAC (compression/expansion table) 5-37 
DACS (HDAM randomizing table) 5-39 
data « 
areas 5-1 
base description block (DBD) 7-30 
base log record 5-188 
base recovery utilities 3-72 
management block (DMB) 5-7 
record (input) 5-191 
record (output) 5-191 
reorganization utilities 3-82 
set group (DSG) 5-52 
date/time table 5-191 
DATASET macro 7-26 
DB buffer handler (see DLZDBH00) 
DB logger (see DLZRDBLO) 
DBD (data base description block) 7-30 


Index 


DBD analysis (see DLZPRDBD) 
DBD generation 7-19 


control block output 7-33 
general structure 7-33 
directory layout 7-34 
prefix layout 7-34 
DMANTAB layout 7-35 
ACB extension 7-35 
SEGTAB layout 7-35 
FLDTAB layout 7-35 
EXTDBD layout 7-37 
LCHDTAB layout 7-37 
SORTAB layout 7-38 
INDXTAB layout 7-38 
DACT 7-38 
compression exit CSECTS 7-38 

DBDGEN macro 7-26 
DBDGEN macro descriptions 7-26 
DBT (data base table) 5-40 
DDIR (DMB directory) 5-42 
delete/replace (see DLZDLDO0) 
delete codes, segment 3-32 
delete work area 3-31, 5-191 
delete work space prefix 3-31, 5-193 
diagnostic aids 6-1 
DIB (DL/I interface block) 5-44 
DL/I control record 5-194 
DL/I facility modules 3-27 
DL/I macros 7-46 
DL/I services (see DLZPRDLI) 
DLZABEND - STXIT ABEND 3-10 
DLZALPHA macro 7-26 
DLZBACKO - batch backout interface 
description 3-68 
directory 4-7 
DLZBLDE macro 7-46 
DLZBLKLD macro 7-47 
DLZBNUCO - batch nucleus 
directory 4-2 
DLZBPC00 - batch partition controller 
description: 3-66 
directory 4-6 
DLZCAP macro 7-27 
DLZCAT macro 7-48 
DLZCKDDN macro 7-27 
DLZCPI00 - control program 
initialization 3-7 
DLZCPY 10 - field level sensitivity 
copy 3-64 
directory 4-6 
DLZDBHO00 - DB buffer handler 
description 3-43 
directory 4-5 
DLZDBLMO - control block load 
and relocate 3-6 
DLZCKOPT macro 7-41 
DLZDDLEO - load/insert 
description 3-33 
directory 4-4 
DLZDEVSI macro 7-28 
DLZFTDP0 - DL/I formatted task dump program 3-26 
DLZDHDSO - HD space management 
description 3-41 
directory 4-4 
DLZHIERS macro 7-28 
DLZDLAO0 - call analyzer 
description 3-27 
directory 4-3 
DLZDLBLO- ACB builder 3-87 
DLZDLBLI - ACB builder 3-87 
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DLZDLBL2- ACB sauder 3-87 
DLZDLBL3 - ACB builder 3-87 
_ DLZDLDO0 - delete/replace 
‘description 3-29 
_ directory 4-4 
DLZDLOC0 - open/close 
description 3-29 
directory 4-5 
DLZDLROO - retrieve 
- description 3-38 
-. directory 4-3 
DLZDLTXX DL/I test program - batch 
_ directory 4-11 
DLZDLTXY DL/I test program - online 
_. directory 4-11 - 
DLZDPSBO - utility PSB builder 3-88 
DLZDSEHO - workfile generator 
description 3-91 
‘. directory 4-10. 
DLZDVCE macro 7-48 
DLZDXMT0 - index maintenance 
description 3-35. 
‘directory 4-4 
DLZEIPBO - batch/MPS interface initialization 
description 3-104 
' introduction 1-9 
DLZEIPBI - batch/MPS EXEC interface 
description 3-106 
_, introduction 1-9 
DLZDEIPO0 - online EXEC interface 
description 3-107 
- introduction 1-9 
DLZDLIST macro 7-51 
DLZER macro 7-50 . 
DLZERMSG - online message writer 3-20 
DLZFSDP0 - DL/I formatted system dump 
description 3-25 
directory 4-10 
DLZFTDP0 - DL/I formatted task dump 
description - 3-26 
directory 4-10 
DLZID macro 7-51 
DLZIDUMP macro 7-52 
DLZIPOST macro 7-52 fo 2 
DLZIWAIT - DL/I IWAIT 3-11 
DLZLBLM6O - ACB generation error message 
. chandler 3-86 
DLZLICBL - COBOL language interface 
description 3- 8 
DLZLIPLI - PL/I language interface 
description 3-9 
DLZL1000 - language interface 3-8 
DLZLOGPO - log print utility 
description. 3-80 
_ . directory 4-8 | 
DLZLPCCO - control statement processor 
description 3-81 
DLZLRECL macro’ 7- 29 
DLZMABND - MPS batch ABEND 3-69 
DLZMINIT - MPS batch initialization 3-67 
DLZMMSG - MPS batch message writer 3-70 
DLZMPCPT 7-53 
DLZMPCO00 - master partition controller 
description 3-65 
directory 4-6 
DLZMPIOO - MPS batch 
description 3-67 
directory 4-6, 
DLZMPRH - MPS batch program 
.. . request handler 3-68 
DLZMSTP0 - stop transaction 
description 3-71 
directory 4-6 
DLZMSTRO - start transaction 
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description 3-65 — 
directory 4-6 
DLZMTERM - MPS batch termination 3-68 
DLZNUCxx Online nucleus 4-2 
DLZODP - online nucleus 
description 3-17 
directory 4-2 
DLZODPO0! - task termination 3-21. 
DLZODP02- normal system termination 3-22 
DLZODP03 - abnormal system 
termination 3-22 
DLZODP04 - PSB scheduling start-of-task 
record routine 3-23 
description 3-23 
DLZODP05 - task termination sync point 
description 3-23 - 
DLZODP06 - abnormal task termination 
dumpentry 3-23 
description 3-23 
DLZODP07 - abnormal task termination 
I/O check entry 3-23 
description 3-23 
DLZODP1O0 - common get storage 
description 3-23 
DLZODPI11 - common free storage 
description 3-23 
DLZOLIO0 - online initialization 
description 3-14 
directory 4-2 
DLZOVSEX - VSAM EXCP exit processor 3-24 
DLZPCCO00 - application program control 3-5 
DLZPCBPD macro 7-41 
DLZPRABC - action table build 
description 3-89 
directory 4-11 
DLZPRCLN - PART! cleanup 
description 3-90 
directory 4-11 
DLZPRCTI - PARTI control 
description 3-88 
directory 4-11 
DLZPRCT2 - PART2 control 
description: 3-94 
directory: 4-11 . 
DLZPRDBD - DBD analysis 
description 3-91 
directory 4-12 
DLZPRDLI - DL/I services 
description 3-101 
directory 4-12 
DLZPRERR - error message writer 
description 3-103 
directory 4-12 
DLZPRHBO - program request handler 3-8 
DLZPRHO00 - online program request handler 3-19 
DLZPR PAR - parameter analysis 
description 3-95 
directory 4-12 
DLZPRPSB - PSB source generator 
description 3-92 
directory 4-12 
DLZPRREP - PARTI report writer 
description 3-93 
directory 4-12 
DLZPRSCC - scan control 
description 3-96 
directory 4-12 
DLZPRSTC - sort control 
description 3-98 
directory 4-12 
DLZPRSTW - statistical writer 
description 3-102 
directory 4-12 
DLZPRUPD - update prefix 


description 3-97 
directory 4-12 © 
DLZPRURC - unload/reload control 
description 3-99 
directory 4-12 
DLZPRWFM - work file manager 
description 3-100 
directory 4-12 
DLZQUEFO - queing facility 
description 3-60 
directory 4-6 
DLZRDBCO - DB change backout 3-73 
DLZRDBLO - DB logger 
description 3-53 
directory 4-5 
DLZRDBLI - CICS journal logger 
description 3-58 
’ directory 4-6 
DLZREL macro 7-52 
DLZRRAOO - user parameter analysis 3-3 
DLZRRCO0 - batch initialization 
description 3-2 
directory 4-2 
DLZRRC10 - region control primary 
interface 3-2 
DLZSEGPT macro 7-29 
DLZSETFL macro 7-29 
DLZSOURS macro 7-30 
DLZSTP00 - online system termination 
directory 4-3 
DLZSTRBO - batch F LD storage manager 
description 3-12 
DLZSTROO - online FLD storage manager 
description 3-13 
DLZSTTL - run and buffer statistics 
description 3- 121 
directory 4-11 © 
DLZTPRT0 - Trace Print Utility 
description 3-120 
DLZTRCAL macro 7-52 
DLZTRPRM macro 7-52 
DLZTWAB | 
macro 7-53 
transaction work area 5-172 
DLZUACBO - ACB creation utility 
description 3-108 
directory 4-9 
DLZUCCT0- control card processor 3-79 
DLZUCERO - common error routine 3-78 
DLZUCUM60O - DB change accumulation 
description 3-78 
directory 4-7 
DLZUC150- sort exit 15 3-79 
DLZUC350 - sort exit 35 3-80 
DLZUDMP0 - DB data set image dump 
description 3-77 
directory 4-6 
DLZURCCO - recovery control statement 
"processor 3-76 
DLZURDBO - DB data set recovery 
description 3-75 
directory 4-7 
DLZURGLO - HD DB reload 
description 3-86 
directory 4-9 | 
DLZURGM6O - DB reorganization message 3-120 
DLZURG PO - prefix update 
description 3-119 
directory 4-10 
DLZURPRO - prereorganization 
description 3-113 
directory 4-9 
DLZURGSO - DB scan 
description 3-114 


directory 4-9 
DLZURGUO- HD DB unload 

description 3-85 

directory 4-8 
DLZURGIO - prefix resolution 

description 3-118 

directory 4-10 
DLZURRLO - HS DB reload 

description 3-84 

directory 4-8 
DLZURULO - HS DB unload 

description 3-78 

directory 4-8 
DLZUSCHO - ACB binary search/insert 3-84 
DLZXCBI macro . 7-53 
DLZXPARM macro 7-31 
DLZXTAB macro 7-53 
DLZXTDBD macro 7-31 
DMB (data management block) 5-7 
DMB directory (DDIR) 5-42 
DMB prefix (DMB) 5-47 
DPPCB (PCB dope vector table) 5-49 
DSECT . 

ACT 5-17 

ARGO 5-19 

BFFRDS 5-22 

CQM_ 5-28 

DBPCB 5-90 

DBT 5-40 

DIB 5-44 

DLIUIB 5-176 

DLZBFPL 5-25 

DLZDDIR 5-42 

DLZPDIR 5-94 

DLZPPST 5-96 

DLZPSIL 5-105 

DLZPST 5-107 

DLZQWA 5-123 

DLZRDB 5-125 

DLZRIB 5-129 

DLZRPCB 5-131 

DLZRPDIR 5-132 

DLZRPST 5-133 

DLZRRD 5-135 

DLZSCD 5-139 

DLZTWAB 5-172 

DLZUIB 5-177 

DMB 5-47 

DMBACBXT 5-13 

DMBCPAC 5-37 

DMBDACS 5-39 

DMBDTFXT 5-15 

DMBPSDB 5-101 

DMBSEC 5-160 

DMBXMPRM 5-179 

DPPCB 5-49 

DSG 5-52 

DWR 5-55 

EIPL 5-57 

FDB 5-61 

FER 5-63 

FERT 5-65 

FILECB 5-59 

FLD 5-66 

FSB. 5-68 

HLPI 5-19 

HLPIL 5-71 

JCB 5-72 

LEV 5-81 

MPC 5-85 

MPCPT 5-86 

PATH 5-89 

PDCA. 5-92 

PSB 5-99 © 
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RGT 5-127 

SCDEXTDS 5-149 

SDB 5-152 

SDBXP 5-119 

SGT. 5-165 

SSAP 5-170 

STA. 5-171 

SUBINFTA 5-137 
 .XWR 5-180 © 
DSG (data set group) 5-52 
DTF extension 5-15 
dump header record 5-194 
dump record prefix 5-195 
DWR (data work record) 5-55 


EIPL - EXEC interface program 
parameter list: 5-57 
_ error message writer (see DLZPRERR) 
facility modules 
descriptions 3-22 
. directory 4-3 
FCB (file control block) 5-59 
FDB (field description block) 5-61 
FER (field exit routine interface 
list) 5-63 
FER T (field exit routine table) 5-65 
file open record 5-195 
field level descriptor 
FIELD macro 7-32 
FINISH macro 7-32 
.(see FLD - field level descriptor) 
field level sensitivity 3-22, 3-60 
FLD (field level descriptor) 5-66 
FSB (field sensitivity block) 5-68 
function codes 5-75 
function types 5-75 
general structure 
DMB 5-8 
PSB 5-10 
buffer pool control block 5-12 
DBD 7-30 
HDAM randomizing table (DACS) 5-39 
HD DB reload (see DLZURGLO) 
‘HD DB unload (see DLZURGUO) 
HD space management (see DLZDHDS0) 
header record (input) 5-196 
header record (output) 5-196 
HLPI interface modules 1-9 
Batch/MPS EXEC interface 
(see DLZEIPB}) 
Batch/MPS interface initialization 
(see DLZEIPBO) 
introduction 1-9 
online EXEC interface (see DLZEIPOO) 
HLPIL (high level program interface 
parameter list) 5-71 
HS DB unload (see DLZURULO) 
image dump utility (see DLZUDMPO) 
index. maintenance module (see DLZDXMTO0) 
index maintenance work area 5-197 
initialize PSBs 3-17 
introduction 1-1 
IWAIT routine 3-20 


JCB (job control block) 5-72 


language interface modules 3-16 
COBOL language interface 
(see DLZLICBL) 
PL/I language interface 
(see DLZLIPLI) 
LCHILD macro 7-32 
LECB (see low-level code/continuity check) 
LEV (level table entry) 5-81 
level table entry (LEV) 5-81 
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list control block 5-199 
LLC/CC 7-2 
HIPO diagrams 7-7 
load action modules 3-16 
load/insert (see DLZDDLE0) 
local PSB scheduling 3-18 
log print utility (see DLZLOGP0) 
logger (see DLZRDBLO) 
logical relationship utilities 
description 3-89 
directory 4-9 
introduction 1-9 
low-level code/continuity check 7-2 
Structure in DL/I 7-3 
execution Control block 7-4 


macro descriptions 
DBDGEN 7-24 
PSBGEN 7-38 
macros 7-42 
DBDGEN calling sequence 7-20 
DBD generation 7-19 
DBDGEN macro descriptions 7-26 
DL/I queuing facility 7-54 
used to create DSECTS 7-53 
used on by utilities 7-53 
miscellaneous 7-54 
PSBGEN 7-41 
master partition controller (see DLZMPC00) 
message/module cross reference table 6-2 
modification aids 7-3 
external names 7-3 
language considerations 7-5 
Save areas 7-6 
HIPOs 7-7 -7-18 
MPC (see DLZMPC00) 
MPC partition table entry 5-87 
MPC - start partition XECB (DLZXCBO02) 5-85 
MPCPT (MPC partition table) 5-86 
MPS batch (see DLZMPI00) 
ABEND (DLZMABND) 3-65 
initialization (DLZMINIT) 3-63 
message writer (DLZMMSG) 3-66 
program request handler (DLZMPRH) 3-64 
termination (DLZMTERM) 3-64 
MPS (multiple partition support) 1-9 
description 3-61 
directory 4-5 
introduction 1-9 
MPS control modules 3-65 
multiple partition support (see MPS) 


nucleus and table initialization 3-16 


online EXEC interface (see DLZEIPOO) 
online DL/I processor modules 3-14 
online FLD storage manager (see DLZSTROO) 
online DL/I processor modules 3-14 
online FLD storage manager (see DLZSTROO) 
online initialization (see DLZOLI00) 
online processor 

introduction 1-5 

description 3-14 
open/close (see DLZDLOC0) 
open data bases 3-17 
output record with segment prefix 5- 200 
output table record 5-200 


parameter analysis (see DLZPRPAR) 

PARM field 3-4 

partial data base reorganization utilities 3-88 
partition specification table (PST) 5-107 
PARTI cleanup (see DLZPRCLN) 

PARTI control (see DLZPRCT1) 

PARTI report writer (see DLZPRREP) 
PART2 control (see DLZPRCT2) 

PATH - PATH header control block 5-89 


PCB dope vector table (DPPCB) 5-49 
PCB macro 7-41 
PCB (program communication block) 5-90 
PDCA (problem determination control area) 5-92 
PDIR (PSB directory) 5-94 
PPST PST prefix 5-96 
physical segment description 
block (PSDB) 5-101 
prefix resolution (see DLZURG10) 
prefix update (see DLZURGP0O) 
prereorganization (see DLZURPRO) 
program communication block (PCB) 5-90 
program request handler 3-20 
program request handler (DLZPRHBO) 3-8 
program specification block (PSB) 5-9 
PSB directory (PDIR) 5-94 
PSB generation 7-36 
control block output 7-43 
PSB-prefix 7-43 
DB PCB 7-43 
SEGTABentry 7-44 
DBREFTAB entry 7-44 
FLS table 7-44 
FSB list entry 7-45 
PSB initialization 3-19 
PSB intent list (PSIL) 5-105 
PSB prefix (PSB) 5-99 
PSB (program specification block) 5-9 
PSB scheduling start-of-task record 
(see DLZODP04) 
PSB source generation (see DLZPRPSB) 
PSBGEN 
macro 7-41 
macro calling sequence 7-40 
macro descriptions 7-39 
PSDB (physical segment description 
block) 5-101 
PSIL (PSB intent list) 5-105 
PST (partition specification table) 5-107 
PST prefix (PPST) 5-96 


queuing facility (see DLZQUEFO0) 
QWA (queuing facility work area) 5-123 


RDB (resource descriptor block) 5-125 
record layouts 5-182 
recovery utilities 
descriptions 3-68 
directory 4-6 
introduction 1-9 
region control primary interface 
(DLZRRCIO) 3-2 
remote interface block (RIB) 5-129 
remote partition specification table 
(RPST) 5-133 
remote program communication block 
(RPCB) 5-131 
remote program specification block 
directory (RPDIR) 5-132 
reorganization utilities 
descriptions 3-78 
directory 4-7 
introduction [-9 
resource descriptor block (RDB) 5-125 
resource request descriptor (RRD) 5-134 
retrieve (see DLZDLROO) 
RGT (range table) 5-127 
RIB (remote interface block) 5-129 
RPCB (remote program communication 
block) 5-131 
RPDIR (remote program specification 
block directory) 5-132 


RPST (remote partition specification 
table) 5-133 
RRD (resource request descriptor) 5-135 
run and buffer statistics (see DLZSTTL) 
SBIF (subpool information table) 5-137 
scan (see DLZURGSO) 
scan control (see DLZPRSCC) 
SCD extension (SCDEXT) 5-149 
SCD (system contents directory) 5-139 
scheduling record 5-132 
SDB expansion block 5-158 
SDB (segment description block) 5-152 
SEC (secondary list) 5-160 
secondary index suppression table 
(XMPRM) 5-179 
secondary list entry 5-187 
secondary list (SEC) 5-160 
SEGM macro 7-32 
SENFLD macro 7-41 
SENSEG macro 7-42 
SGT (segment table) 5-165 
short segment table 5-201 
sort control (see DLZPRSTC) 
sorted list block 5-201 
space management (see DLZDHDS0) 
SSA for GU call by key 5-202 
SSA for GU call by RBA. 5-202 
SSA for XMAINT call to the 
analyzer 5-202 
SSAP (segment search appendage) 5-170 
STA (statistics table) 5-171 
start transaction (see DLZMSTRO) 
statistical writer (see DLZPRSTW) 
statistics record 5-202 
status codes/module cross 
reference table 6-11 
stop transaction (see DLZMSTPO) 
STXIT ABEND (DLZABEND) 3-10 
subpool information table (SBIF) 5-137 
system contents directory (SCD) 5-139 
system control modules 
description 3-2 
directory 4-2 


tables 
message/module cross reference 6-2 
status codes/module cross 
reference 6-11 
termination record 5-184 
task termination sync point routine 
(see DLZODP11) 


UIB (user information block) 5-176 
unload/reload control (see DLZPRURC) 
update prefix (see DLZPRUPD) utilities 
description 3-68 
directory 4-6 
introduction 1-9 
user interface block (UIB) 5-176 
uSer parameter analysis (DLZRRAOO) 3-3 


VIRFLD macro 7-42 


work file | 5-203 

work file 3 5-207 

workfile generator (see DLZDSEHO) 

work file manager (see DLZPRWFM) 

XDFLD macro 7-32 

XMPRM (secondary index suppression 
table) 5-179 

XWR (index work record) 5-180 
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